PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
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
#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
#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:
pautOutlook est un objet automation dynamique
pautOutlook = ObjetActif("Outlook.Application")
SI pautOutlook = Null ALORS
pautOutlook = allouer un objet automation "Outlook.Application"
FIN
Email est un objet automation dynamique = pautOutlook>>CreateItem(0)
sDestinataireest une chaîne
sDestinataireCopieest une chaîne

//Création du mail
Email>>subject = sObjet

//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(sCorps) + CRLF + Email>>HTMLBody)

//Ajout des destinataires
POUR TOUT sAdresse DE tabDestinataire
sDestinataire += sAdresse+";"
FIN
Email>>to = Gauche(sDestinataire,Taille(sDestinataire)-1)

//Ajout des destinataires copie
POUR TOUT sAdresse DE tabDestinatairesCopie
sDestinataireCopie += sAdresse+";"
FIN
Email>>cc = Gauche(sDestinataireCopie,Taille(sDestinataireCopie)-1)

//Ajout des pièces jointes
POUR TOUT sPiece DE PiecesJointes
Email>>attachments>>Add(sPiece)
FIN

//Libération des objets
Libérer Email
Libérer pautOutlook


Bon dev à tous...

Philippe
#3
Posté le 24 mai 2013 - 15:29
Super cela fonctionne
Merci Philippe pour la solution
#4
Posté le 31 mars 2015 - 11:11
Bonjour,


SVP comment vais un retour a la ligne avec : Email>>HTMLBody(RTFVersHTML

merci
#5
Membre enregistré
1 message
Posté le 06 mai 2015 - 15:41
Ajoute un RC (retour chariot)

--
Développeur d'Applications
#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.

sListeDest 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 = gsMon_Expediteur //SAI_Expéditeur

sListeDest = Remplace(SAI_Destinataire," ",";")
sListeDest = Remplace(SAI_Destinataire,",",";")
POUR TOUTE CHAINE sDest DE sListeDest SEPAREE PAR ";"
Email.NbDestinataire++
Email.Destinataire[Email.NbDestinataire] = sDest
FIN


// Envoi dans OutLook
//Pour info : l'utilisation d'un nom du carnet d'adresses comme destinataire est possible
SI PAS EmailEnvoieMessage(gnIdSession) ALORS
Erreur ("Le message n'a pas été envoyé", ErreurInfo(errMessage))
FIN

gbOK=Vrai
Ferme()


Avec ce code je n'arrive pas à ajouter la signature de l'utilisateur actif.

Merci assister
#7
Posté le 17 février 2016 - 14:32
J'aimerais bien pouvoir changer la signature de outlook par programmation windev. Savez-vous comment?
#8
Membre enregistré
14 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(sCorps) + CRLF + Email>>HTMLBody)

sinon vous n'aurez pas la signature dans votre mail
#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 pautOutlook


--
Bon dev !
→ Revenir à WINDEV 2024