Bonjour,
J'essaie d'envoyer un mail avec Outlook et avec ce code tout fonctionnne très bien :
Voila sauf que sur Outlook je possède plusieurs comptes et je voudrais envoyer ce mail sur un compte qui n'est pas le compte principal.
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
22
23
24
25
26
27
28 Function EnvoiMail() Dim pj Dim datetemp Dim StrDate As String Dim body Dim body2 Dim body3 pj = "c:\pj.xls" ' sauvegarde du classeur dans un répertoire temporaire Set appOutLook = New Outlook.Application Set objmail = appOutLook.CreateItem(olMailItem) objmail.Display 'les paramètres body = "corps du message" objmail.to = "adresse@destinataire.com" objmail.CC = ' le cas échéant objmail.Subject = "Objet du mail" objmail.body = body objmail.attachments.Add pj 'destruction des références aux objets Set objmail = Nothing Set appOutLook = Nothing End Function
Comment et où puis-je ajouter ce paramètre ?
Quelque chose du genre :
Par avance merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part objmail.from = "adresse@expediteur.com"
Mendes.
Partager