Modifier adresse d'envoie VBA

Bonjour à tous et à toutes,

Une question me taraude : Est-il possible de changer l'adresse mail qui envoie le mail automatique ?

J'ai essayé d'ajouté un .From = "bobo@gmail.fr" entre .Subject et .To

Mais évidemment ca aurait été trop beau pour être vrai haha

Private Sub DIGITAL()
Dim LeMail As Variant
Dim Ligne As Integer
Set LeMail = CreateObject("outlook.application")  'création d'un objet Outlook
For Ligne = 2 To 2
With LeMail.CreateItem(olMailItem)
    .Display    ' Afficher le mail pour avoir la signature
    .Subject = "Clôture " & Range("C" & Ligne) & " / Invoice closing " & Range("C" & Ligne)
    .To = Range("F" & Ligne)
    .HTMLBody = "Bonjour " & Range("B" & Ligne) & "," & "<br><br>" _
    & "Nous avons constaté que vous n'avez pas consommé votre budget de " & Range("E" & Ligne) & " euros sur votre SOW " & "<b>" & Range("C" & Ligne) & "</b>" & "," & "<br>" _& .HTMLBody
    End With
Next Ligne
End Sub

Merci encore

Bonjour le fil et le forum,

à tester, ajouter après la ligne

With LeMail.CreateItem(olMailItem)

cette ligne

Set .SendUsingAccount = LeMail.Session.Accounts.Item(3)

où le nombre entre parenthèses représente le numéro d’ordre du compte, à adapter

Merci beaucoup pour votre retour !

Que veut dire le numéro d’ordre du compte ? C'est le numéro de la boite mail ? Si oui comment et ou je peux le trouver svp ?

Merci

Bonjour Mapomi,

voici le code pour connaitre le numero de chaque adresse email dans Outlook

Sub Account_Number()
'https://forum.excel-pratique.com/excel/modifier-adresse-d-envoie-vba-176648

Dim OutApp As Object
Dim i As Integer

    Set OutApp = CreateObject("Outlook.Application")

    For i = 1 To OutApp.Session.Accounts.Count
        MsgBox OutApp.Session.Accounts.Item(i) & " : Compte numéro " & i
    Next i
End Sub

Cordialement

Bonjour !

Merci pour votre retour !

Je vous avoue ne pas trop comprendre comment je peux modifier le mail envoyeur car j'ai du faire la manipulation que l'on trouve dans le PDF en PJ pour y avoir accès. Je ne sais pas si cette 2ème boite compte comme une boite mail à part entière ?

Pour être plus précis, c'est une boite mail générique.

Bonjour Mapomi,

as-tu testé le code de mon message précédent? Il renvoie le numéro de compte de chaque boîte aux lettres dans ton Outlook. Si tu souhaites utiliser la deuxième adresse, remplace simplement le numéro entre parenthèses par ton numéro de compte, c'est-à-dire 2

Set .SendUsingAccount = LeMail.Session.Accounts.Item(2)

Bonjour Sequoyah,

Désolé de la réponse si tardive.

J'ai mis un certain temps avant d'avoir accès à cette boite générique qui n'était pas reliée directement à mon compte donc je ne pouvais rien faire...

Merci beaucoup, en effet ca fonctionne. Un énorme merci, c'est un gain de temps considérable que tu viens de m'offrir !

Merci et bonne journée !