Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel ajouter une signature dans un email

ajouter une signature dans un email

27 réponses
Avatar
pellet15
Bonjour =C3=A0 tous=20
J'ai d=C3=A9j=C3=A0 une signature dans outlook=20
que j'ai nommer "dp"

comment l'int=C3=A9grer dans ma proc=C3=A9dure=20
---------

With oBjMail
.To =3D ActiveSheet.Range("h13") ' le destinataire
.CC =3D ActiveSheet.Range("h15")
.BCC =3D linkses
.Subject =3D name2 ' l'objet du mail
.Body =3D "Bonjour "=20
=20
=20
.Attachments.Add ActiveWorkbook.Path & "\" & name '---dp----ok
.Attachments.Add ActiveWorkbook.Path & "\Service d'inspection ferro=
viaire 2017 - Annexe 1et 2-fr.pdf"
=20
.Display ' Ici on peut supprimer pour l'envoyer sans v=C3=A9rifi=
cation
=20
End With
Set oBjMail =3D Nothing
Set ObjOutlook =3D Nothing
End Function

------
Merci
Signaler un problème avec ce contenu

10 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
1 2 3
Avatar
isabelle
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
Avatar
News.aioe.org
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
Avatar
isabelle
... 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
Avatar
isabelle
ça c'est du synchro,
le froid ne peut rien contre nous ;-)
isabelle
Avatar
MichD
| le froid ne peut rien contre nous ;-)
On ne se laisse pas intimider par les -25 C®
;-))
MichD
Avatar
pellet15
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
Avatar
Jacquouille
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
Avatar
isabelle
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
Avatar
MichD
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
Avatar
isabelle
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."
1 2 3