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.

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
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
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.