Discussion :

[buhrne]

Bonjour,

Voilà, j'ai une petite macro qui fonctionne très bien pour envoyer un mail depuis excel avec des infos prises à la fois dans les feuilles, à la fois dans un usf.
Quand je lui dis de créer un nouvel objet mail, il me le créé avec automatiquement (comme configuré dans outllok) ma signature perso.
Seulement quand je lui défini le corps du message, bien sûr il me vire la signature !

J'aimerais savoir s'il existe (pas encore trouvé) une commande pour insérer sa signature dans le mail fraichement créé.

Merci d'avance

[Antoniom]

Hello,

Dépose le code ou le fichier, qu'on puisse voir car comme ça, difficile de t'aider.

Cordialement, Antoniom.

[buhrne]

Et voilà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Public Sub Valider_Click()
    Dim MonOutlook As Object
    Dim MonMessage As Object
    Dim Corps As String
 
 
Corps = "Bonjour," & Chr(10) & Chr(10) & _
        "Une intervention MET/CT est prévue du " & DateDeb.Value & " au " & DateFin.Value & _
        " sur le système " & NomSyst.Value & "." & Chr(10) & Chr(10) & _
        "Nature de l'intervention : " & Ope.Value & " / " & DetOpe.Value & Chr(10) & "Technicien : " & Tech.Value & Chr(10) & Chr(10) & _
        "Merci de confirmer ces dates avant le début de l'intervention." & Chr(10) & Chr(10) & InfosSup.Value & Chr(10) & Chr(10) & _
        "Cordialement."
 
 
Set MonOutlook = CreateObject("outlook.application")
Set MonMessage = MonOutlook.CreateItem(0)
 
With MonMessage
    .to = SL.Value
    .CC = C_Q.Value & ";" & PlanProj.Value & "; sylvain.ducellier2@sanofi-aventis.com"
    .Subject = "Intervention MET/CT sur " & NomSyst.Value & " (" & SapSyst.Value & ")"
    .Body = Corps
    .Display
End With
 
 
Unload UsfMailInterv
UsfMailInterv.Hide
 
End Sub