executer outlook depuis access

Le
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
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
Jessy Sempere
Le #6194491
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 = " & " .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


Tisane
Le #6194481
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

cinfo84
Le #6186061
Merci pour tout,

Alors j'abuse.......

avez vous une explication pour le fait qu'une image intégrée dans le corps
"body", telle 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 = " & " .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




Jessy Sempere
Le #6185871
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 = " & "<u>Ceci</u> est souligné mais pas le reste." _
& " .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 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 = " & " .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






cinfo84
Le #6185781
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





cinfo84
Le #6183171
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 = " & "<u>Ceci</u> est souligné mais pas le reste." _
& " .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 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 = " & " .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








Jessy Sempere
Le #6194251
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 = " & "<u>Ceci</u> est souligné mais pas le reste." _
& " .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 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 = " & " .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










cinfo84
Le #6192441
ç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 = " & "<u>Ceci</u> est souligné mais pas le reste." _
& " .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 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 = " & " .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












Publicité
Poster une réponse
Anonyme