cs_prady92
Messages postés9Date d'inscriptionvendredi 16 septembre 2005StatutMembreDernière intervention16 février 2010
-
29 avril 2008 à 12:44
cs_prady92
Messages postés9Date d'inscriptionvendredi 16 septembre 2005StatutMembreDernière intervention16 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é.
Firelion
Messages postés27Date d'inscriptionlundi 18 février 2008StatutMembreDernière intervention29 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.
cs_prady92
Messages postés9Date d'inscriptionvendredi 16 septembre 2005StatutMembreDernière intervention16 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.