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é.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
*Bernard que je salue a écrit *:
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.
*Bernard <Bernard@discussions.microsoft.com> que je salue a écrit *:
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.
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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.
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 que je salue a écrit *:
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.
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 <Bernard@discussions.microsoft.com> que je salue a écrit *:
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.
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/
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
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 que je salue a écrit *:
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.