OVH Cloud OVH Cloud

VBA: Insertion de signature

4 réponses
Avatar
Stach
Salut à tous,

en VBA j'ai réalisé dans Word un petit programme me permettant d'envoyer
avec Outlook en attachement mon document actif.
J'aimerai pouvoir insérer ma signature dans le corp du mail. Est-ce
possible? Si oui, comment?

voici une partie mon code:

Set myolApp = CreateObject("Outlook.Application")
Set myItem = myolApp.CreateItem(olMailItem)
myItem.Subject = "Bulletin du " & Date()
myPath = appWD.ActiveDocument.FullName
myItem.Attachments.Add (myPath)
myItem.Recipients.Add ("Jacques.Pluche@electrabel.com")
myItem.Display

Merci de votre aide.

--
Stach ;-)

4 réponses

Avatar
Isabelle Prawitz
Bonjour !
A priori, il suffit que tu paramètres Outlook pour intégrer ta signature par défaut.
Si tu ne veux pas que tous tes mails aient une signature, tu peux ruser en modifiant la propriété HTMLBody de ton message, et
en y incluant le code HTML correspondant.
Par ex.:

MyItem.HTMLBody = MyItem.HTMLBody & "<BR>Paul Dupond<BR>Rue des Oiseaux<BR>75000 Paris

A+
Isa

"Stach" a écrit dans le message de
news:
Salut à tous,

en VBA j'ai réalisé dans Word un petit programme me permettant d'envoyer
avec Outlook en attachement mon document actif.
J'aimerai pouvoir insérer ma signature dans le corp du mail. Est-ce
possible? Si oui, comment?

voici une partie mon code:

Set myolApp = CreateObject("Outlook.Application")
Set myItem = myolApp.CreateItem(olMailItem)
myItem.Subject = "Bulletin du " & Date()
myPath = appWD.ActiveDocument.FullName
myItem.Attachments.Add (myPath)
myItem.Recipients.Add ("")
myItem.Display

Merci de votre aide.

--
Stach ;-)


Avatar
Stach
Merci pour ta réponse.

Comment je fais si veux que cette signature soit en couleur verte et
seulement mon nom en gras?

merci.

"Isabelle Prawitz" wrote:

Bonjour !
A priori, il suffit que tu paramètres Outlook pour intégrer ta signature par défaut.
Si tu ne veux pas que tous tes mails aient une signature, tu peux ruser en modifiant la propriété HTMLBody de ton message, et
en y incluant le code HTML correspondant.
Par ex.:

MyItem.HTMLBody = MyItem.HTMLBody & "<BR>Paul Dupond<BR>Rue des Oiseaux<BR>75000 Paris

A+
Isa

"Stach" a écrit dans le message de
news:
Salut à tous,

en VBA j'ai réalisé dans Word un petit programme me permettant d'envoyer
avec Outlook en attachement mon document actif.
J'aimerai pouvoir insérer ma signature dans le corp du mail. Est-ce
possible? Si oui, comment?

voici une partie mon code:

Set myolApp = CreateObject("Outlook.Application")
Set myItem = myolApp.CreateItem(olMailItem)
myItem.Subject = "Bulletin du " & Date()
myPath = appWD.ActiveDocument.FullName
myItem.Attachments.Add (myPath)
myItem.Recipients.Add ("")
myItem.Display

Merci de votre aide.

--
Stach ;-)







Avatar
Isabelle Prawitz
Essaie ça :
<font color="#00FF00"><BR><B>Paul Dupond</B><BR>Rue des Oiseaux<BR>75000 Paris</font>

A+
Isa

"Stach" a écrit dans le message de
news:
Merci pour ta réponse.

Comment je fais si veux que cette signature soit en couleur verte et
seulement mon nom en gras?

merci.

"Isabelle Prawitz" wrote:

Bonjour !
A priori, il suffit que tu paramètres Outlook pour intégrer ta signature par défaut.
Si tu ne veux pas que tous tes mails aient une signature, tu peux ruser en modifiant la propriété HTMLBody de ton
message, et


en y incluant le code HTML correspondant.
Par ex.:

MyItem.HTMLBody = MyItem.HTMLBody & "<BR>Paul Dupond<BR>Rue des Oiseaux<BR>75000 Paris

A+
Isa

"Stach" a écrit dans le message de
news:
Salut à tous,

en VBA j'ai réalisé dans Word un petit programme me permettant d'envoyer
avec Outlook en attachement mon document actif.
J'aimerai pouvoir insérer ma signature dans le corp du mail. Est-ce
possible? Si oui, comment?

voici une partie mon code:

Set myolApp = CreateObject("Outlook.Application")
Set myItem = myolApp.CreateItem(olMailItem)
myItem.Subject = "Bulletin du " & Date()
myPath = appWD.ActiveDocument.FullName
myItem.Attachments.Add (myPath)
myItem.Recipients.Add ("")
myItem.Display

Merci de votre aide.

--
Stach ;-)









Avatar
Ricardo Silva [MVP - Outlook]
Vous avez aussi cet VBA:
http://www.outlookcode.com/codedetail.aspx?ida5

--
Ricardo Silva [Outlook MVP]
Site - www.rsoutlook.com