Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access executer outlook depuis access

executer outlook depuis access

8 réponses
Avatar
cinfo84
Bonjour

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une signature ?


d'avance merci pour vos conseils

cinfo87
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Jessy Sempere
Bonjour

Voilà un exemple pour envoyer un mail en HTML par contre, cette méthode
n'utilise pas sendObject...

De plus il faut rajouter la référence Outlook.

Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste.</body><HTML>"
.Display
End With

End Function

--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une signature ?


d'avance merci pour vos conseils

cinfo87


Avatar
Tisane
Bonjour cinfo84 ou cinfo87,

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une
signature ?


Regarde du côté de la propriété BodyFormat avec la valeur olFormatHTML.
Pour la signature, si elle est déclarée dans Outlook, elle doit s'afficher
automatiquement.

--
Tisane

Avatar
cinfo84
Merci pour tout,

Alors j'abuse.......

avez vous une explication pour le fait qu'une image intégrée dans le corps
"body", telle <img src=""c:repphoto001.jpg"" />, n'apparait pas dans le
corps du mail ??

merci d'avance

Cinfo84

Bonjour

Voilà un exemple pour envoyer un mail en HTML par contre, cette méthode
n'utilise pas sendObject...

De plus il faut rajouter la référence Outlook.

Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste.</body><HTML>"
.Display
End With

End Function

--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une signature ?


d'avance merci pour vos conseils

cinfo87




Avatar
Jessy Sempere
Bonjour

Oui, tu dois mettre l'apostrophe à la place des guillemets pour spécifier la
source de ton image, voilà donc la même fonction avec une image :

*****************************************
Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste." _
& "<img src='c:tonImage.bmp'/></body><HTML>"
.Display
End With
CurrentDb.CreateQueryDef
End Function
*****************************************
--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Merci pour tout,

Alors j'abuse.......

avez vous une explication pour le fait qu'une image intégrée dans le corps
"body", telle <img src=""c:repphoto001.jpg"" />, n'apparait pas dans le
corps du mail ??

merci d'avance

Cinfo84

Bonjour

Voilà un exemple pour envoyer un mail en HTML par contre, cette méthode
n'utilise pas sendObject...

De plus il faut rajouter la référence Outlook.

Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste.</body><HTML>"
.Display
End With

End Function

--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une signature ?


d'avance merci pour vos conseils

cinfo87






Avatar
cinfo84
Merci pour vos infos

tout baigne

Slt

cinfo84



Bonjour cinfo84 ou cinfo87,

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une
signature ?


Regarde du côté de la propriété BodyFormat avec la valeur olFormatHTML.
Pour la signature, si elle est déclarée dans Outlook, elle doit s'afficher
automatiquement.

--
Tisane





Avatar
cinfo84
merci pour tout.....
l'apostrophe au lieu du guillemet......!!!

cinfo84




Bonjour

Oui, tu dois mettre l'apostrophe à la place des guillemets pour spécifier la
source de ton image, voilà donc la même fonction avec une image :

*****************************************
Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste." _
& "<img src='c:tonImage.bmp'/></body><HTML>"
.Display
End With
CurrentDb.CreateQueryDef
End Function
*****************************************
--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Merci pour tout,

Alors j'abuse.......

avez vous une explication pour le fait qu'une image intégrée dans le corps
"body", telle <img src=""c:repphoto001.jpg"" />, n'apparait pas dans le
corps du mail ??

merci d'avance

Cinfo84

Bonjour

Voilà un exemple pour envoyer un mail en HTML par contre, cette méthode
n'utilise pas sendObject...

De plus il faut rajouter la référence Outlook.

Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste.</body><HTML>"
.Display
End With

End Function

--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une signature ?


d'avance merci pour vos conseils

cinfo87








Avatar
Jessy Sempere
Bonjour

C'est une question ?
Ou tu nous dis juste que c'est bon, ça fonctionne... ;-))

@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



merci pour tout.....
l'apostrophe au lieu du guillemet......!!!

cinfo84




Bonjour

Oui, tu dois mettre l'apostrophe à la place des guillemets pour spécifier la
source de ton image, voilà donc la même fonction avec une image :

*****************************************
Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste." _
& "<img src='c:tonImage.bmp'/></body><HTML>"
.Display
End With
CurrentDb.CreateQueryDef
End Function
*****************************************
--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Merci pour tout,

Alors j'abuse.......

avez vous une explication pour le fait qu'une image intégrée dans le corps
"body", telle <img src=""c:repphoto001.jpg"" />, n'apparait pas dans le
corps du mail ??

merci d'avance

Cinfo84

Bonjour

Voilà un exemple pour envoyer un mail en HTML par contre, cette méthode
n'utilise pas sendObject...

De plus il faut rajouter la référence Outlook.

Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste.</body><HTML>"
.Display
End With

End Function

--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une signature ?


d'avance merci pour vos conseils

cinfo87










Avatar
cinfo84
ça marche, bien sur !

mais il est vrai qu'on oublie régulièrement l'apostrophe dans les transferts
de chaine de caractère.......

merci encore

cinfo84



Bonjour

C'est une question ?
Ou tu nous dis juste que c'est bon, ça fonctionne... ;-))

@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



merci pour tout.....
l'apostrophe au lieu du guillemet......!!!

cinfo84




Bonjour

Oui, tu dois mettre l'apostrophe à la place des guillemets pour spécifier la
source de ton image, voilà donc la même fonction avec une image :

*****************************************
Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste." _
& "<img src='c:tonImage.bmp'/></body><HTML>"
.Display
End With
CurrentDb.CreateQueryDef
End Function
*****************************************
--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Merci pour tout,

Alors j'abuse.......

avez vous une explication pour le fait qu'une image intégrée dans le corps
"body", telle <img src=""c:repphoto001.jpg"" />, n'apparait pas dans le
corps du mail ??

merci d'avance

Cinfo84

Bonjour

Voilà un exemple pour envoyer un mail en HTML par contre, cette méthode
n'utilise pas sendObject...

De plus il faut rajouter la référence Outlook.

Function SendMailHTML()

Dim olApp As Outlook.Application
Dim olItem As Outlook.MailItem

Set olApp = CreateObject("Outlook.application")
Set olItem = olApp.CreateItem(olMailItem)

With olItem
.To = ""
.Subject = "Sujet"
.BodyFormat = olFormatHTML
.HTMLBody = "<HTML><body><b>Ceci</b> est en gras mais pas le reste.<p>" _
& "<u>Ceci</u> est souligné mais pas le reste.</body><HTML>"
.Display
End With

End Function

--
@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l''''efficacité de tous :
http://www.mpfa.info/
------------------------------------



Bonjour

lorsqu'on génère un message depuis ACCESS vers outlook, (via sendobject)
outlook s'ouvre systématiquement en mode 'TEXTE BRUT'
Comment forcer en mode HTML, et cerise sur le gateau, insérer une signature ?


d'avance merci pour vos conseils

cinfo87