OVH Cloud OVH Cloud

envoi de mail

3 réponses
Avatar
JIMO
Bonjour,

J'utilise Excel 97, j'ai un tableau avec plusieurs noms et je souhaiterais
pouvoir leur envoyer un mail juste en cliquant sur leur adresse de courriel.
J'ai essayé en mettant un lien hypertexte mais cela ne fonctionne pas :
outlook ne s'ouvre pas.
Petite précision ce sont des adresses intenes.
Merci de m'aider

3 réponses

Avatar
anomymousA
bonjour,

va sur ce site http://www.excelabo.net/xl/sortir.php. tu trouveras des infos

A+



Bonjour,

J'utilise Excel 97, j'ai un tableau avec plusieurs noms et je souhaiterais
pouvoir leur envoyer un mail juste en cliquant sur leur adresse de courriel.
J'ai essayé en mettant un lien hypertexte mais cela ne fonctionne pas :
outlook ne s'ouvre pas.
Petite précision ce sont des adresses intenes.
Merci de m'aider


Avatar
JIMO
Merci mais je ne trouve pas ce que je cherche. En fait, je ne veux pas
envoyer une feuille ou un fichier excel par mail mais juste :

créer un raccourci dans chaque cellule correspondante qui ouvre un nouveau
message vide dans outlook mais avec le destinataire déjà rempli.

Merci pour votre aide


bonjour,

va sur ce site http://www.excelabo.net/xl/sortir.php. tu trouveras des infos

A+



Bonjour,

J'utilise Excel 97, j'ai un tableau avec plusieurs noms et je souhaiterais
pouvoir leur envoyer un mail juste en cliquant sur leur adresse de courriel.
J'ai essayé en mettant un lien hypertexte mais cela ne fonctionne pas :
outlook ne s'ouvre pas.
Petite précision ce sont des adresses intenes.
Merci de m'aider




Avatar
anomymousA
re,

adaptes le code que j'ai d'ailleurs trouvé sous Excellabo.Il doit pas y
avoir grand chose à changer, mais j'ai pas Outlook sous la main sur ce micro.

Sub Outlook()
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem, ToContact As
Recipient
MESsages = MSG11 & MSG12 & MSG13 & MSG14
Set OLF = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = "XXXXXXXXXXXX"
Set ToContact = .Recipients.Add("")
.Body = "ton message"
.Attachments.Add "C:PDM" & SOCiete & "" & Nomvar, olByValue, , "le
fichier que tu veux joindre"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing
End Sub

A+


Merci mais je ne trouve pas ce que je cherche. En fait, je ne veux pas
envoyer une feuille ou un fichier excel par mail mais juste :

créer un raccourci dans chaque cellule correspondante qui ouvre un nouveau
message vide dans outlook mais avec le destinataire déjà rempli.

Merci pour votre aide


bonjour,

va sur ce site http://www.excelabo.net/xl/sortir.php. tu trouveras des infos

A+



Bonjour,

J'utilise Excel 97, j'ai un tableau avec plusieurs noms et je souhaiterais
pouvoir leur envoyer un mail juste en cliquant sur leur adresse de courriel.
J'ai essayé en mettant un lien hypertexte mais cela ne fonctionne pas :
outlook ne s'ouvre pas.
Petite précision ce sont des adresses intenes.
Merci de m'aider