Bonjour,
Je souhaite envoyer un courriel directement après une fusion de courrier Word.
Dans ma macro, j'ai utilisé le code suivant :
[code]
' Check if Outlook is running. If it is not, start Outlook
Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
End If
Set oItem = oOutlookApp.CreateItem(olMailItem)
With oItem
.Subject = "D00234 - Courrier test"
.Body = ActiveDocument.Content
.To = "eric@gayasoftware.com"
.Send
End With
Set oItem = Nothing
[code]
La méthode fonctionne bien, l'email est envoyé, mais la mise en page du courrier est perdue (polices et alignement).
Comment pourrais-je faire pour garder ma mise en page ?
Merci.
