FORUMS PROFESSIONNELS
WINDEV
,
WEBDEV
et
WINDEV Mobile
Accueil
|
Messages récents
|
Connexion
|
Déconnexion
|
Français
Accueil
→
WINDEV 2024
→
[WD17] insérer une signature dans un message outlook
[WD17] insérer une signature dans un message outlook
Débuté par christophe, 07 déc. 2012 12:27 - 8 réponses
Connectez-vous…
christophe
#1
Posté le 07 décembre 2012 - 12:27
Bonjour,
Je souhaiterais insérer dans un mail envoyé par outlook la signature déjà programmée dans outlook.
J'ai essayé par un objet automation, cela fonctionne presque quand j'utilise cette
commande mais celà n'intègre pas l'image
pautEmail>>htmlbody =sMess_mail+CR+"C:\Users\Christophe\AppData\Roaming\Microsoft\Signatures\Signature.htm".
Quelqu'un aurait-il une solution pour intégrer cette signature dans son intégralité.
Merci
Signaler
0
0
Philippe SAINT-BERTIN
#2
Posté le 24 mai 2013 - 14:14
Bonjour,
Alors voici un code qui fonctionne pour l'envoi du mail avec la signature sur outlook:
paut
Outlook est un
objet automation
dynamique
paut
Outlook
=
ObjetActif
(
"Outlook.Application"
)
SI
paut
Outlook
=
Null
ALORS
paut
Outlook
=
allouer
un
objet automation
"Outlook.Application"
FIN
Email
est un
objet automation
dynamique
=
paut
Outlook
>
>
CreateItem
(
0
)
s
Destinataire
est une
chaîne
s
DestinataireCopie
est une
chaîne
//Création du mail
Email
>
>
subject
=
s
Objet
//Affichage de la fenêtre Outlook (indispensable en premier afin d'avoir la signature
Email
>
>
Display
(
)
//On remplit le corps du message
Email
>
>
HTMLBody
(
RTFVersHTML
(
s
Corps
) +
CRLF
+
Email
>
>
HTMLBody
)
//Ajout des destinataires
POUR
TOUT
s
Adresse DE
tab
Destinataire
s
Destinataire
+
=
s
Adresse
+
";"
FIN
Email
>
>
to
=
Gauche
(
s
Destinataire
,
Taille
(
s
Destinataire
)
-
1
)
//Ajout des destinataires copie
POUR
TOUT
s
Adresse DE
tab
DestinatairesCopie
s
DestinataireCopie
+
=
s
Adresse
+
";"
FIN
Email
>
>
cc
=
Gauche
(
s
DestinataireCopie
,
Taille
(
s
DestinataireCopie
)
-
1
)
//Ajout des pièces jointes
POUR
TOUT
s
Piece DE PiecesJointes
Email
>
>
attachments
>
>
Add
(
s
Piece
)
FIN
//Libération des objets
Libérer Email
Libérer
paut
Outlook
Bon dev à tous...
Philippe
Signaler
1
0
christophe
#3
Posté le 24 mai 2013 - 15:29
Super cela fonctionne
Merci Philippe pour la solution
Signaler
0
0
clovis nzi
#4
Posté le 31 mars 2015 - 11:11
Bonjour,
SVP comment vais un retour a la ligne avec : Email>>HTMLBody(RTFVersHTML
merci
Signaler
0
0
Melo
#5
Membre enregistré
1 message
Posté le 06 mai 2015 - 15:41
Ajoute un RC (retour chariot)
--
Développeur d'Applications
Signaler
0
0
Fremarx
#6
Posté le 16 mai 2015 - 13:37
Bonjour à tous,
Le code est très intéressant mais le seul bémol chez moi le message ne s'envoie pas seul. come je le voudrais.
s
ListeDest est une
chaîne
// Contrôles de saisie
SI
SAI_
sujet
~
=
""
ALORS
Erreur
(
"Indiquez le sujet du message."
)
RepriseSaisie
(
SAI_
sujet
)
FIN
SI
SAI_
Contenu
~
=
""
ALORS
Erreur
(
"Saisissez le message à enregistrer dans OutLook."
)
RepriseSaisie
(
SAI_
Contenu
)
FIN
SI
SAI_
Destinataire
~
=
""
ALORS
Erreur
(
"Saisissez au moins un destinataire."
)
RepriseSaisie
(
SAI_
Destinataire
)
FIN
// Identifiant
Email
.
MessageID
=
idmessage
// Sujet
Email
.
Sujet
=
SAI_
sujet
// Contenu de la note
Email
.
Message
=
SAI_
Contenu
// Dates
Email
.
DateRéception
=
DateVersChaîne
(
SAI_
Date
,
maskDateSystème
)
+
" "
+
Gauche
(
HeureVersChaîne
(
SAI_
Heure
)
,
5
)
// Expéditeur
Email
.
Expéditeur
=
gs
Mon_Expediteur
//SAI_Expéditeur
s
ListeDest
=
Remplace
(
SAI_
Destinataire
,
" "
,
";"
)
s
ListeDest
=
Remplace
(
SAI_
Destinataire
,
","
,
";"
)
POUR
TOUTE CHAINE
s
Dest DE
s
ListeDest SEPAREE
PAR
";"
Email
.
NbDestinataire
+
+
Email
.
Destinataire
[
Email
.
NbDestinataire
] =
s
Dest
FIN
// Envoi dans OutLook
//Pour info : l'utilisation d'un nom du carnet d'adresses comme destinataire est possible
SI PAS
EmailEnvoieMessage
(
gn
IdSession
)
ALORS
Erreur
(
"Le message n'a pas été envoyé"
,
ErreurInfo
(
errMessage
)
)
FIN
gb
OK
=
Vrai
Ferme
(
)
Avec ce code je n'arrive pas à ajouter la signature de l'utilisateur actif.
Merci assister
Signaler
0
0
Marc Vanderstraeten
#7
Posté le 17 février 2016 - 14:32
J'aimerais bien pouvoir changer la signature de outlook par programmation windev. Savez-vous comment?
Signaler
0
0
GABRIEL
#8
Membre enregistré
19 messages
Posté le 13 juillet 2017 - 17:17
Je me permets juste une petite remarque sur le code Philippe SAINT-BERTIN.
Il faut absolument mettre le
Email
>
>
Display
(
)
avant le
Email
>
>
HTMLBody
(
RTFVersHTML
(
s
Corps
) +
CRLF
+
Email
>
>
HTMLBody
)
sinon vous n'aurez pas la signature dans votre mail
Signaler
0
0
YWE
#9
Membre enregistré
47 messages
Popularité : +1 (1 vote)
Posté le 13 juillet 2018 - 17:19
Bonjour,
désolé de déterrer ce mail.
Y'a t'il une possibilité de récupérer l'information si le mail est bien envoyé ?
// Par exemple, ICI récupérer statut de l'envoi de mail
//Libération des objets
Libérer Email
Libérer
paut
Outlook
--
Bon dev !
Signaler
0
0
→ Revenir à WINDEV 2024
WINDEV 2024
WEBDEV 2024
WINDEV Mobile 2024
WINDEV (précédentes versions)
WEBDEV (précédentes versions)
WINDEV Mobile (précédentes versions)
Etats & Requêtes
Hors-sujet
Outils
Français
English
Español
Portuguesa
Fermer cette fenêtre
Type de recherche
Uniquement les sujets
Tous les messages
Période de recherche
Date indifférente
Moins d'une heure
Moins de 24 heures
Moins d'une semaine
Moins d'un mois
Moins d'un an
Annuler
Aperçu de votre message
Ajouter une image
Importer une image depuis une URL
Envoyer une image depuis un fichier de votre disque
Déposez ici un fichier ou cliquez sur "Parcourir..."
ou
Annuler
0%
WLangage
SQL
XML, HTML
JAVA, Javascript
Texte