Bonjour,
Une petite question sur l'envoi d'un mail via Outlook.
Contexte :
Via un formulaire ACCESS, j'ouvre un fichier Word qui m'est fourni avec du texte et des tableaux.
Ces données sont utilisées pour envoyer un mail (à base de copier/coller, etc ...), il m'est interdit de mettre le fichier en pièce jointe.
Ce que je tente de faire :
coller tout le texte et les tableaux dans le corps du mail.
Voici mon code:
Dim wApp As Word.Application
Dim oWord As Word.Document
Dim oApp As New Outlook.Application
Dim oMail As Outlook.MailItem
Set wApp = CreateObject("Word.Application")
wApp.Documents.Open "Mon fichier word.doc"
Set oWord = wApp.Documents(docname)
oWord.Application.Visible = True
oWord.Select
wApp.Selection.Copy
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp .CreateItem(olMailItem)
With oMail
.To =
toto@toto.fr .Display
.Body = ""
'j'essaye de me positionner sur le "Subject" pour que le "Tab" me mette sur le "Body"
.Subject = "Objet du message"
'je passe par un SendKeys car je n'ai pas trouvé d'autres solutions, avec un Tab avant pour se positionner dans le corps du mail
SendKeys "{TAB}^v", True
End With
Set oWord = Nothing
Set wApp = Nothing
Set oMail = Nothing
Set oApp = Nothing
Avec ce code, effectivement, je peux visualiser un mail et le collage est bon mais, il y a toujours un mais...
Le soucis, c'est que selon les Outlook des clients cela ne marche pas toujours car le focus au moment du "coller" n'est pas toujours sur le corps.
D'où ma question comment être sûr de mettre le focus sur le corps du mail avant de coller, j'ai cherché et je n'est pas trouvé.
D'avance merci.