Envoi de courriels

[Michel C]

Bonsoir à tous,

J'ai réuni plusieurs éléments sur le forum pour programmer un truc qui expédiera à plusieurs destinataires simultanément un courriel. Toutefois, j'utilise Microsoft Outlook express version 6 et excel 2003.

Par conséquent, la 3e ligne qui est soulignée crée un "bug";
Dim I As Integer, MailTo As String, MailCC As String
Dim vPJ
Dim OLApplication As Outlook.Application, OLMail As Outlook.MailItem

Set OLApplication = CreateObject("Outlook.Application")
Set OLMail = OLApplication.CreateItem(OLMailItem)

J'ai tenté d'écrire;
MicrosoftOutlookExpress - sans succès
OutlookExpress avec ou sans espace entre les mots - sans succès.

J'ai cherché sur le forum des indications concernant outlook express mais je ne trouve pas.

Merci de m'aider,

Michel

 

[Banzai64]

Re : Envoi de courriels

Bonjour
Sans rien connaitre j'ai trouvé ça sur la toile

Sub test()
  Dim OLApplication As Object
  Dim OLMail As Object
  ' On crée une instance d'Outlook :
  Set OLApplication = CreateObject("Outlook.Application")
  ' Et on crée un élément Outlook, qui sera un message E-Mail :
  Set OLMail = OLApplication.CreateItem(0)
  Set OLApplication = Nothing

End Sub

Listes de diffusion : Accédez à Outlook via VBA

 

[myDearFriend!]

Re : Envoi de courriels

Bonsoir Michel C, Banzai64,

Banzai64 le code que tu présentes est similaire à celui de Michel C et ne fonctionne qu'avec Outlook (et non Outlook Express)...

Ron de Bruin (MVP) présente des choses qui semblent intéressantes pour Outlook Express sous ce lien : Example Code for sending mail from Excel


Cordialement,

 

[myDearFriend!]

Re : Envoi de courriels

Re,

Impardonnable ! j'allais oublié notre ami SilkyRoad qui présente également une solution :
Comment créer un message en utilisant Outlook Express ?

Cordialement,

 

[Michel C]

Re : Envoi de courriels

Yessssssss!

Merci énormément pour la réponse rapide. Excellent travail.

Michel

Et pourtant je cherche...........