adresse email dans une cellule
Le
pellet15

Bonjour
J'ai besoin d'envoyé un email a plusieurs destinataire et leur adresse es=
t dans l'onglet
Sheets("Feuille_insp")
cellule "a2" .
1nom@mail.com, 2nom@mail@.com, 3nom@mail.com
Voici la macros que je veut modifier:
.
Dim Subject As String, Attention As String
Subject = "Inspection du " & Date
Attention = "nom@mail.com"
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
End Sub
Merci
J'ai besoin d'envoyé un email a plusieurs destinataire et leur adresse es=
t dans l'onglet
Sheets("Feuille_insp")
cellule "a2" .
1nom@mail.com, 2nom@mail@.com, 3nom@mail.com
Voici la macros que je veut modifier:
.
Dim Subject As String, Attention As String
Subject = "Inspection du " & Date
Attention = "nom@mail.com"
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
End Sub
Merci
La cellule A2 doit contenir :
; @.com;
le code devient :
Dim Subject As String, Attention As String
Subject = "Inspection du " & Date
Attention = Sheets("Feuille_insp").[A2]
Application.Dialogs(xlDialogSendMail).Show Attention, Subject
Daniel
Cela fonctionne bien.
Merci
en plus de ce fichier XLS , je voudrait ajouter une version PDF.
Comment faire ?
Merci encore...
Sub Mail()
Set olApp = CreateObject("Outlook.application")
Set m = olApp.CreateItem(olMailItem)
With m
.Subject = "Inspection du " & Date
.Recipients.Add ""
.Recipients.Add ""
.Attachments.Add "C:temptmp.pdf"
.Attachments.Add ThisWorkbook.FullName
.Display
End With
End Sub
Daniel