ajouter une signature dans un email

Le
pellet15
Bonjour à tous
J'ai déjà une signature dans outlook
que j'ai nommer "dp"

comment l'intégrer dans ma procédure


With oBjMail
.To = ActiveSheet.Range("h13") ' le destinataire
.CC = ActiveSheet.Range("h15")
.BCC = linkses
.Subject = name2 ' l'objet du mail
.Body = "Bonjour "


.Attachments.Add ActiveWorkbook.Path & "" & name 'dp-ok
.Attachments.Add ActiveWorkbook.Path & "Service d'inspection ferro=
viaire 2017 - Annexe 1et 2-fr.pdf"

.Display ' Ici on peut supprimer pour l'envoyer sans vérifi=
cation

End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Function


Merci
Vos réponses Page 1 / 3
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #26420803
bonjour pellet,
essaie avec
.SentOnBehalfOfName
isabelle
Le 2016-12-16 à 16:08, pellet15 a écrit :
Bonjour à tous
J'ai déjà une signature dans outlook
que j'ai nommer "dp"
comment l'intégrer dans ma procédure
---------
With oBjMail
.To = ActiveSheet.Range("h13") ' le destinataire
.CC = ActiveSheet.Range("h15")
.BCC = linkses
.Subject = name2 ' l'objet du mail
.Body = "Bonjour "
.Attachments.Add ActiveWorkbook.Path & "" & name '---dp----ok
.Attachments.Add ActiveWorkbook.Path & "Service d'inspection ferroviaire 2017 - Annexe 1et 2-fr.pdf"
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Function
------
Merci
News.aioe.org
Le #26420806
Bonjour,
Tout sur le sujet à cette adresse :
http://www.rondebruin.nl/win/s1/outlook/signature.htm
(le site est en anglais)
MichD

"pellet15" a écrit dans le message de groupe de discussion :

Bonjour à tous
J'ai déjà une signature dans outlook
que j'ai nommer "dp"
comment l'intégrer dans ma procédure
---------
With oBjMail
.To = ActiveSheet.Range("h13") ' le destinataire
.CC = ActiveSheet.Range("h15")
.BCC = linkses
.Subject = name2 ' l'objet du mail
.Body = "Bonjour "
.Attachments.Add ActiveWorkbook.Path & "" & name '---dp----ok
.Attachments.Add ActiveWorkbook.Path & "Service d'inspection
ferroviaire 2017 - Annexe 1et 2-fr.pdf"
.Display ' Ici on peut supprimer pour l'envoyer sans vérification
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Function
------
Merci
isabelle
Le #26420805
... et d'autre exemple ici: http://www.rondebruin.nl/win/s1/outlook/account.htm
isabelle
Le 2016-12-16 à 17:13, isabelle a écrit :
bonjour pellet,
essaie avec
.SentOnBehalfOfName
isabelle
isabelle
Le #26420804
ça c'est du synchro,
le froid ne peut rien contre nous ;-)
isabelle
MichD
Le #26420843
| le froid ne peut rien contre nous ;-)
On ne se laisse pas intimider par les -25 C®
;-))
MichD
pellet15
Le #26420853
Le vendredi 16 décembre 2016 17:13:43 UTC-5, isabelle a écrit  :
bonjour pellet,
essaie avec
.SentOnBehalfOfName
isabelle
Le 2016-12-16 à 16:08, pellet15 a écrit :
Bonjour à tous
J'ai déjà une signature dans outlook
que j'ai nommer "dp"
comment l'intégrer dans ma procédure
---------
With oBjMail
.To = ActiveSheet.Range("h13") ' le destinataire
.CC = ActiveSheet.Range("h15")
.BCC = linkses
.Subject = name2 ' l'objet du mail
.Body = "Bonjour "
.Attachments.Add ActiveWorkbook.Path & "" & name '---dp----ok
.Attachments.Add ActiveWorkbook.Path & "Service d'inspection f erroviaire 2017 - Annexe 1et 2-fr.pdf"
.Display ' Ici on peut supprimer pour l'envoyer sans vé rification
End With
Set oBjMail = Nothing
Set ObjOutlook = Nothing
End Function
------
Merci


Bonjour Isabelle
non cela me retourne
"Erreur d'exécution '440':
Cet objet ne prend pas en charge cette méthode."
Merci
Jacquouille
Le #26420869
Waw, moins 25 ?
ici, il a gelé à -0,5. Au secour!

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
o33cd7$7rk$
| le froid ne peut rien contre nous ;-)
On ne se laisse pas intimider par les -25 C®
;-))
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
isabelle
Le #26420891
as-tu essayer avec
.SendUsingAccount
comme l'exemple donné sur le site
http://www.rondebruin.nl/win/s1/outlook/account.htm
isabelle
Le 2016-12-17 à 10:08, pellet15 a écrit :
Le vendredi 16 décembre 2016 17:13:43 UTC-5, isabelle a écrit :
bonjour pellet,
essaie avec
.SentOnBehalfOfName
isabelle

Bonjour Isabelle
non cela me retourne
"Erreur d'exécution '440':
Cet objet ne prend pas en charge cette méthode."
Merci
MichD
Le #26420894
Et l'hiver débute le 21 décembre!!! ;-)))
"Jacquouille" a écrit dans le message de groupe de discussion :
o33s9l$14dl$
Waw, moins 25 ?
ici, il a gelé à -0,5. Au secour!

Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
o33cd7$7rk$
| le froid ne peut rien contre nous ;-)
On ne se laisse pas intimider par les -25 C®
;-))
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus
Avast.
https://www.avast.com/antivirus
isabelle
Le #26420895
nous subissons une météo super déréglée
hier -25c
demain matin +5c avec de la pluie, demain après midi ça se refroidi et ont aura
la neige
et on nous annonce un -20c pour lundi
je pense déménager mes vieux os vers le sud %-(
isabelle
Le 2016-12-17 à 21:40, MichD a écrit :
Et l'hiver débute le 21 décembre!!! ;-)))
"Jacquouille" a écrit dans le message de groupe de discussion :
Waw, moins 25 ?
ici, il a gelé à -0,5. Au secour!
Jacques
" Le vin est au repas ce que le parfum est à la femme."
Publicité
Poster une réponse
Anonyme