Bonjoir,
Je souhaite envoyer un email via une macro excel mais mon code utilise outlook alors que je voudrais le forcer à utiliser OutlookExpress.
Y a-t-il un moyen ?
Voici mon code :
Est ce qq1 peut m'aider ?
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
20
21 Sub EnvoiMail() Dim MonOutlook As Object Dim MonMessage As Object Dim nomfich As String Dim nomfich2 As String Dim Corps As String Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.createitem(0) MonMessage.To = Email MonMessage.Subject = "BULLETINS D'ANALYSE COMMANDE " & Cde Corps = "Bonjour," & vbCrLf & vbCrLf Corps = Corps & "Veuillez trouver ci-joint la liste des produits expédiés le " & Date_expe2 & " et pour laquelle vous pourrez télécharger les bulletins d'analyse sur notre site." & vbCrLf & "Bonne réception." & vbCrLf & "Bien cordialement." & vbCrLf & "Le Service Commercial" MonMessage.body = Corps MonMessage.Attachments.Add nomfich MonMessage.Display ' SendKeys "^{ENTER}" Set MonOutlook = Nothing End Sub
Merci par avance Nini
Partager