mettre le focus sur le corps d'un mail

Le
Bernard
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Oliv'
Le #6438021
*Bernard
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 =
.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.


Bonjour,
On ne peut pas faire de focus.

Mais essaye simplement
.body=wApp.Selection

Après cela dépend de ta version et situ utilises word comme éditeur.

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Bernard
Le #6553221
Merci Oliv,

j'avais déjà testé mais je perds les tableaux et la mise en forme, il ne
conserve que les caractères, idem avec : omail.HTMLbody=wApp.Selection.

Y a t-il une autre façon de faire ?

Merci



*Bernard
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 =
.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.


Bonjour,
On ne peut pas faire de focus.

Mais essaye simplement
..body=wApp.Selection

Après cela dépend de ta version et situ utilises word comme éditeur.

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Outlook : http://faq.outlook.free.fr/
les macros Outlook : http://faq.outlook.free.fr/articles.php?cat_id
les archives : http://groups.google.com/group/microsoft.public.fr.outlook
Dernière chance http://www.outlookcode.com/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~






Publicité
Poster une réponse
Anonyme