Envoi Email avec VB6 [Résolu]

Signaler
Messages postés
62
Date d'inscription
samedi 10 janvier 2009
Statut
Membre
Dernière intervention
30 octobre 2012
-
Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
-
Bonjour,

Je n'ai pas trouvé sur les forums un code vb6 permettant
d'envoyer des emails par outlook

Quelqu'un a t il une solution

Mreci de voter aide

1 réponse

Messages postés
75
Date d'inscription
mercredi 17 août 2011
Statut
Membre
Dernière intervention
27 septembre 2011
1
Bonsoir,

Ci-dessous du code VBA qui est sensiblement pareil que le code VB6.

Il faut rajouter la référence "Microsoft Outlook XX Object Library"

Didier


Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim Lcorps As String

'Conception de l'envoi
'
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)

Lcorps = "Test envoi Mail ...."

With olmail
.To = "maildudestinataire@xxxx.fr"
.Subject = "Nouvelle Demande Imprimerie"
.Body = Lcorps
.ReadReceiptRequested = True
.Send
.Display
End With