Microsoft 365 Adresse mail dans VBA

Francky79 à dit:

Bonjour à tous,

Dans le code ci-dessous, je ne sais pas comment rajouter l'adresse mail de l'expéditeur.

VB:

Private Sub Envoyer_Mail_Toto_Click()
Application.ScreenUpdating = False
Dim oOutlook As Object
   Set oOutlook = CreateObject("outlook.application")
 
   Dim oMail As Object
   Set oMail = oOutlook.Createitem(0)

   With oMail

       Dim oObjetWord As Object
       Set oObjetWord = .GetInspector.WordEditor
     
       .To = Range("E6").Value
       .Subject = "Cde " & Range("G6").Value
       .Body = Range("P96:V106").Select 'ActiveCell
       Selection.Copy
       oObjetWord.Range(0).Paste
       .Display
    End With
    ActiveWindow.SmallScroll ToRight:=-9
    Application.ScreenUpdating = True

End Sub

Merci pour votre aide,

Cliquez pour agrandir...

Francky79 à dit:

Je pensais aussi, mais ça ne marche pas.
je voudrais plusieurs codes avec des adresses différentes.
Suivant la macro que je lance je peux choisir l'adresse de l'expéditeur.

Merci de votre aide.

Cliquez pour agrandir...

Francky79 à dit:

VB:

Private Sub Envoyer_Mail_Acno_Click()
Application.ScreenUpdating = False
Dim oOutlook As Object
   Set oOutlook = CreateObject("outlook.application")
 
   Dim oMail As Object
   Set oMail = oOutlook.Createitem(0)

   With oMail

       Dim oObjetWord As Object
       Set oObjetWord = .GetInspector.WordEditor
     
       .From = f.toto@titi.fr
       .To = Range("E6").Value
       .Subject = "Cde " & Range("G6").Value
       .Body = Range("P96:V106").Select 'ActiveCell
       Selection.Copy
       oObjetWord.Range(0).Paste
       .Display
    End With
    ActiveWindow.SmallScroll ToRight:=-9
    Application.ScreenUpdating = True

End Sub

J'ai modifié le code en mettant un From mais ça beug.
Je voudrais juste rajouter une adresses expèditeur.
Plus simple pour moi.

Merci,

Cliquez pour agrandir...

Francky79 à dit:

.From = "f.toto@titi.fr"
Marche pas non plus

Cliquez pour agrandir...

​