Re : Envoi d'un e-mail à plusieurs destinataires
Bonjour à tous du forum,
Re: (j'ai bien tenté "&"; ";"; ... en vain).
cela ne fonctionne pas, il y a trop de ; mises
à modifier par:
MailAd = "____@____.com" & "; " & "____@____2.com" & "; " & "____@____3.com" 'y mettre les adresses email de destinataires
ou bien la procédure suivante, des données reprises, établies de Ron :
Sub Mail_with_outlook()
Dim OutApp As Object
Dim OutMail As Object
Dim strto As String, strcc As String, strbcc As String
Dim strsub As String, strbody As String
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
strto = "_____@_____.com" ' Range("A2")
'strto = Range("A2") 'ou bien y mettre les adresses de destinataires dans Range("A2")
strcc = "_____@_____2.com"
strbcc = ActiveCell ' est sélectionné l'adresse email figurant dans ActiveCell
strsub = "ci-joint fichier Excel"
strbody = "Bonjour, l'email fonctionne bien" & vbNewLine & vbNewLine & _
"à verify le document Excel en annexe"
With OutMail
.To = strto
.CC = strcc
.BCC = strbcc
.Subject = strsub
.Body = strbody
' .Send
.Display
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%S"
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
bonne journée encore,