En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Forum - Questions sur Access - Créer un mail via outlook


 

clos par 3Stone le 28/06/2020 : 17:37  Sujet n° 839

le 17/04/2020 : 11:11
par flomen

Anonyme

visiteur

Bonjour,

Je souhaite créer un mail dans Outlook via Access en y incorporant la signature automatique définie dans Outlook.

J'arrive bien à créer le mail mais la signature n'apparait pas !

Cordialement

sujet clos Haut  
Réponse n° 1
--------
le 18/04/2020 : 19:46
par 3Stone

3Stone

Administrateur


Bonjour,

Citation : « flomen »

y incorporant la signature automatique définie dans Outlook.

Essaies ceci :

strSignature = Environ("appdata") & "Microsoft\Signatures" & Environ("Username") & ".htm"

que tu devras ajouter à ton body.

Cordialement,
Pierre (3Stone)

clos par 3Stone le 28/06/2020 : 17:37 Haut  
Réponse n° 2
--------
le 22/04/2020 : 09:45
par flomen

Anonyme

visiteur

Bonjour,

J'ai résolu mon problème en insérant la signature au format HTML ce qui me permet d'jouter un logo(jpg) dans la signature et la mise en forme 

Voici le code

Function Mail_Signature()
Dim OL As Outlook.Application, mi As Outlook.MailItem, Signature As String
On Error GoTo 0
Set OL = New Outlook.Application
Set mi = OL.CreateItem(olMailItem)
Dest = "destinataire@sfr.fr"
With mi
    .To = Dest
    .CC = ""
    .Bcc = ""
    .Subject = "Ceci est le sejet"
'   la fonction Sign restitue le code HTML de la signature
    .HTMLBody = Sign() & "<br>" & .HTMLBody
    .Display
End With
    Set OL = Nothing: Set mi = Nothing
End Function

Cordialement

clos par 3Stone le 28/06/2020 : 17:37 Haut  
actif sujet actif   clos sujet clos   Important! Important!   Nouveau Nouveau message
Rectifier Rectifier message   Clôturer Clôturer sujet   Remonter Remonter  
Catégories de discussion  Forum  



Vous êtes ici :   Accueil » Forum » Questions sur Access » Créer un mail via outlook