Bonjour,
Je voudrais envoyer des mails automatiques à partir de mon second compte Outlook que j'ai rajouté selon la procédure précisée dans le lien suivant:
https://support.office.com/fr-BE/Art...d-76e1877049c1
Mais quand je veux trouver l'Id de mon compte à partir du code ci-dessous, ma procédure ne me renvoi qu'un seul compte, mon principal, alors que le second compte est visible dans Outlook.
par conséquent quand j'essaie d'envoier un mail en utilisant le code ci-dessous cela ne marche pas, il l'envoi toujours à partir de mon 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 Sub Which_Account_Number() 'Don't forget to set a reference to Outlook in the VBA editor Dim OutApp As Outlook.Application Dim I As Long 'Set OutApp = CreateObject("Outlook.Application") Set OutApp = GetObject(, "Outlook.Application") For I = 1 To OutApp.Session.Accounts.Count MsgBox OutApp.Session.Accounts.Item(I) & " : This is account number " & I Next I End Sub
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
29
30
31
32
33
34
35
36
37
38 Sub Mail_small_Text_Change_Account() 'Only working in Office 2007-2013 'Don't forget to set a reference to Outlook in the VBA editor Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Dim strbody As String 'Set OutApp = CreateObject("Outlook.Application") Set OutApp = GetObject(, "Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) strbody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" & vbNewLine & _ "This is line 3" & vbNewLine & _ "This is line 4" On Error Resume Next With OutMail .To = "ron@debruin.nl" .CC = "" .BCC = "" .Subject = "This is the Subject line" .Body = strbody 'SendUsingAccount is new in Office 2007 'Change Item(1)to the account number that you want to use .SendUsingAccount = OutApp.Session.Accounts.Item(2) .Display .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub
Qu'quelqu'un saurait-il d'où vient l'erreur s'il vous plait?
Y'a t-il une autre façon de rajouter un compte supplémentaire afin qu'on puisse identifier ce compte dans un code VBA?
Merci de votre aide.
Partager