Discussion :

[BtjpsspgrW]

Bonjour,

L'exemple ci-dessous permet de créer des messages Outlook et d'envoyer le classeur actif en pièce jointe.
Cependant, il n’insère pas la signature par défaut d’Outlook (Outils/Options/Format du courrier/Signatures/Signature électronique par défaut).

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
32
33
34
35
36
37
Sub Envoi_Email_base()
 
    Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application") 'Lance une session Microsoft Outlook'
    Set OutMail = OutApp.CreateItem(0) 'Crée un nouveau message'
 
    On Error Resume Next
    'Si (lorsque) une erreur d'exécution se produit, VBA passe à l'instruction suivante celle ayant causé l'erreur'
 
 
        With OutMail
            .To = " " 'Destinataire du message'
            .CC = " " 'En copie du message'
            .BCC = ""
            .Subject = " " 'Objet du message'
            'Corps du message'
            .Body = "Bonjour," _
                    & Chr(13) & " " _
                    & Chr(13) & "." & Chr(13) _
                    & Chr(13) & " " _
                    & "Cordialement."
            .Attachments.Add ThisWorkbook.Path & "\" & ThisWorkbook.Name 'Pièces jointes du message : sur fichier ouvert'
            .send 'Envoi du message'
        End With
            'ObjOutlook.Quit 'Quitte l'application Outlook'
            Set objMail = Nothing
            Set ObjOutlook = Nothing
 
 
    On Error GoTo 0 'Désactive toute gestion d'erreur par une ou l'autre forme de On error"
 
    Set OutMail = Nothing 'Réinitialise l'objet'
    Set OutApp = Nothing 'Réinitialise l'objet'
 
End Sub

Quelqu'un peut-il m'aider à insérer la signature indiquée dans Outlook, sachant que le nom de cette signature électronique est : FR NOM ?
Quelle est la syntaxe exacte à compléter ?

Merci d’avance pour votre aide.

Cordialement.

[unparia]

Bonjour
https://www.rondebruin.nl/win/s1/outlook/signature.htm

[BtjpsspgrW]

Bonjour,

Je suis allé sur ton lien et je vois :

Code :

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

1
2
3
4
5
strbody = "<H3><B>Dear Customer Ron de Bruin</B></H3>" & _
              "Please visit this website to download the new version.<br>" & _
              "Let me know if you have problems.<br>" & _
              "<A HREF=""http://www.rondebruin.nl/tips.htm"">Ron's Excel Page</A>" & _
              "<br><br><B>Thank you</B>"

Que signifie les parties de syntaxe (il y a des plus gros caractères, du texte en gras, dans le code ci-dessus) ?
<H3><B> ; </B></H3> ; .<br> ; <br><br><B> ; </B> car j'utilise toujours & vbCr & vbTab &, mais dans ce cas là, ça ne fonctionne pas.
Je ne comprends pas, mon texte est sur la même ligne

Code :

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

1
2
3
4
5
"Bonjour," & vbCr & vbTab & _
" " & vbCr & vbTab & _
"Ci-joint, ... " & vbCr & vbTab & _
" " & vbCr & vbTab & _
"Cordialement."

Que faut-il modifier ?

[joe.levrai]

Bonjour,

il faut .Display le mail et ensuite concaténer son body avec ton message au-devant, c'est la leçon à tirer de ce lien
c'est l'affichage qui va incorporer ta signature automatique (si elle est bien paramétrée comme tel) dans le corps du mail

[BtjpsspgrW]

Bonjour,

Oui avec l'exemple 1 de ton lien, il n'y a pas de souci, la signature est bien ajoutée au message.

Cependant, je n'arrive pas à rédiger le corps de mon message afin qu'il soit correct, car il s'affiche sur la même ligne, c'est-à-dire :
Bonjour, Ci-joint, le tableau ... Cordialement.

En fait, je souhaiterais ce corps ci-dessous :

ligne 1 : Bonjour,
ligne 2 : ligne vide
ligne 3 : Ci-joint, le tableau ...
ligne 4 : ligne vide
ligne 5 : Cordialement.


Peux-tu m'aider s'il-te-plait à rédiger cette syntaxe, car mon modèle ne fonctionne pas sur cette macro (ça me parait plus compliquer avec cette méthode ?

Merci par avance.