Discussion :

[Mendes]

Bonjour,

J'essaie d'envoyer un mail avec Outlook et avec ce code tout fonctionnne très bien :

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

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.
Comment et où puis-je ajouter ce paramètre ?
Quelque chose du genre :

Code :

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

objmail.from = "adresse@expediteur.com"

Par avance merci.

Mendes.

[mcdotta]

Est-ce que cela pourrait t'aider ... Trouvé dans le help Outlook


SentOnBehalfOfName Property

Returns the display name for the intended sender of the mail message. This property corresponds to the MAPI property PR_SENT_REPRESENTING_NAME.

Read/write String.

Syntax

objMailItem.SentOnBehalfOfName
objMailItem Required. An expression that returns a MailItem object.

[Mendes]

Merci mais je n'ai pas trop compris comment et ou l'intégrer dans mon code

[Mendes]

En fait j'ai réussi.
Voici ce que j'ai mis juste avant la ligne concernant mailto

Code :

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

objmail.SentOnBehalfOfName = "adresse@expediteur.com"

Maintenant je souhiate ajouter une adresse cachée CCI.
Merci bien.

Mendes.

[mcdotta]

Ca doit être BCC

Code :

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

1
2
 
objmail.BCC = "toto@titi.com"

[Mendes_one]

Trop fort.
Merci bien.