Mettre le focus sur le corps d'un mail

cs_prady92 Messages postés 9 Date d'inscription vendredi 16 septembre 2005 Statut Membre Dernière intervention 16 février 2010 - 29 avril 2008 à 12:44
cs_prady92 Messages postés 9 Date d'inscription vendredi 16 septembre 2005 Statut Membre Dernière intervention 16 février 2010 - 29 avril 2008 à 15:12
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 = [mailto:toto@toto.fr 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.

2 réponses

Firelion Messages postés 27 Date d'inscription lundi 18 février 2008 Statut Membre Dernière intervention 29 avril 2008
29 avril 2008 à 13:30
Bonjour,

Je ne vais sans doute pas répondre exactement à ta question mais je te conseille de regarder ce code : http://www.vbfrance.com/code.aspx?ID=31545 qui permet d'envoyer un mail automatiquement et permet l'ajout de pièces jointes.
Je l'ai essayé ça fonctionne très bien.

Peut être que ça pourrai te servir.
0
cs_prady92 Messages postés 9 Date d'inscription vendredi 16 septembre 2005 Statut Membre Dernière intervention 16 février 2010
29 avril 2008 à 15:12
Bonjour,

d'abord merci pour la rapidité mais hélas en fin du code de ce lien il y a écrit :
"Attention avec cette technique, le collage du contenu du presse-papier n'est pas géré" et c'est justement là mon problème.

Si tu as d'autres idées je suis preneur.

Merci d'avance
0