Discussion :

[pietroo]

Bonjour,

est-il possible d'envoyer un mail à partir d'une liste de diffusion qui ne possède pas de boite mail outlook svp? Par exemple une liste de diffusion (sou la forme de 'xxxx@xxxx.com' qui possède plusieurs adresses mails qui eux possèdent une boite mail utilisant un domaine du type xxxx@xxxx.com.

Faut-il passer par la méthode CDO de macro VBA ou y a t il une autre méthode?

Merci

[pietroo]

par exemple une liste de diffusion "bilogistes@xxxx.com" qui comprend 5 adresses mail de personnes de type "xxxxx@xxxx.com" qui comprend chacun une boite mail. La liste de diffusion bilogistes@xxxx.com ne comprend pas de boite mail.

Personne ne sait?
merci

[Oliv-]

SAlut,
as tu essayé manuellement ? avec le champ DE ?

Sinon avec CDO tu mets ce que tu veux même si cela n'existe pas comme un noreply

[pietroo]

SAlut,
as tu essayé manuellement ? avec le champ DE ?

Sinon avec CDO tu mets ce que tu veux même si cela n'existe pas comme un noreply

Merci Oliv tu veux dire comme ça ? avec Outlook ?
Ah ok merci pour le noreply mais si il faut que je reçoive des mails sur la liste de diffusion comment dois je faire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Set OutlookApp = CreateObject("Outlook.Application")
Set Outlookmail = OutlookApp.CreateItem(0)
With Outlookmail
    .Subject = EmailSubject
    .From = "xxxxx@xxxxx.com"
    .To = SendTo
    .cc = ccTo
    '.Body = EmailBody 'pour message text
     .HTMLBody = EmailBody 'pour message html
    '.Display
    .Send

[Oliv-]

Si tu peux envoyer un Email manuellement en indiquant dans DE l'adresse email de ta liste de diffusion il faut utiliser SentOnBehalfOfName

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub envoi_au_nom_de()
    Dim objMail As Outlook.MailItem
    Set objMail = Outlook.Application.CreateItem(olMailItem)
    MsgBox objMail.subject
    objMail.SentOnBehalfOfName = "GSNADHESION"
    objMail.Display
    'objMail.ResolveAll
End Sub

Sinon tu peux créer un COMPTE OUTLOOK sur ton pc avec un fichier de donnée local et indiquer comme Adresse Email ,celle de ta liste de diffusion, il faut juste connaitre le serveur SMTP. et éventuellement mettre les infos d'authentification de ton compte principal, comme cela tu pourras envoyer en choissisant ce compte et les retrour se feront sur chaque membre de cette LD.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub SendUsingAccount()
Set OutlookApp = CreateObject("Outlook.Application")
Set Outlookmail = OutlookApp.CreateItem(0)
 
Dim oAccount As Outlook.Account
Set oAccount = Application.Session.Accounts("test@test.com")
If oAccount Is Nothing Then MsgBox "Compte non trouvé": Exit Sub
 
With Outlookmail
.Subject = EmailSubject
.SendUsingAccount oAccount
.To = SendTo
.cc = ccTo
'.Body = EmailBody 'pour message text
.HTMLBody = EmailBody 'pour message html
'.Display
.Send
 
End Sub

Sinon avec CDO