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
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
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
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 ?
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 ?
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 ?
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
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 = "destinataire@test.fr"
.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
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
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
Cinfo84Bonjour
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
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 = "destinataire@test.fr"
.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
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
Cinfo84Bonjour
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
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
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
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
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
Cinfo84Bonjour
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
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 = "destinataire@test.fr"
.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 = "destinataire@test.fr"
.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
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
Cinfo84Bonjour
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
merci pour tout.....
l'apostrophe au lieu du guillemet......!!!
cinfo84Bonjour
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
Cinfo84Bonjour
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
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 = "destinataire@test.fr"
.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 = "destinataire@test.fr"
.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
merci pour tout.....
l'apostrophe au lieu du guillemet......!!!
cinfo84Bonjour
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
Cinfo84Bonjour
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
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......!!!
cinfo84Bonjour
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
Cinfo84Bonjour
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
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 = "destinataire@test.fr"
.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 = "destinataire@test.fr"
.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
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......!!!
cinfo84Bonjour
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
Cinfo84Bonjour
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