Bonjour,


Dans mon petit code d'envoi de mail en VBA, j'aimerai changer l’expéditeur qui est mon edresse personnelle par l'adresse générique de mon service. (je précise que cela fonctionne lorsque j'envoie un message normalement directement sur Outlook)

J'ai donc rajouter From (malheureusement dans la case expéditeur j'ai toujours mon adresse)


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
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .From = "adressedeservice@masociete.fr"
        .To = adr1 & ";" & adr2 & ";" & adr3 & ";" & adr4 & ";" & adr5 & ";" & adr6 & ";" & adr7 & ";" & adr8
        .Subject = "données quotidiennes"
        .Attachments.Add CheminSource & FichierSource
        .body = "Veuillez trouver les informations en pièces jointes"
 
        .Send
        .Display
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
Auriez vous une solution à me proposer

merci