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


 2 membres
Connectés : ( personne )

  Sujet n° 839
le 17/04/2020 11:11
par flomen
 
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

  
Réponse n° 1
--------
le 18/04/2020 19:46
par 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)

  
Réponse n° 2
--------
le 22/04/2020 09:45
par flomen
 
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

  
sujet actif   sujet clos   Important!   Nouveau  
Rectifier message   Clôturer sujet   Remonter sujet