Philou0607
XLDnaute Nouveau
Bonjour,
J'ai lu des tutos mais je ne parviens pas à insérer ma signature enregistrée dans outlook 2010 après la sélection que je colle dans mon mail.
Voici mon bout de code, merci pour votre aide.
Sub EnvoyerParMail()
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 = "marin.marin@toto.fr"
.CC = "bateau.quinavigue@eau.com
.Subject = "Extraction du flux " & "- " & ThisWorkbook.Name
.Body = ActiveCell.Value
Selection.Copy
oObjetWord.Range(0).Paste
.Display
End With
End Sub
J'ai lu des tutos mais je ne parviens pas à insérer ma signature enregistrée dans outlook 2010 après la sélection que je colle dans mon mail.
Voici mon bout de code, merci pour votre aide.
Sub EnvoyerParMail()
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 = "marin.marin@toto.fr"
.CC = "bateau.quinavigue@eau.com
.Subject = "Extraction du flux " & "- " & ThisWorkbook.Name
.Body = ActiveCell.Value
Selection.Copy
oObjetWord.Range(0).Paste
.Display
End With
End Sub