Discussion :

[Rainmax]

Bonjour,

J'ai mis en place une macro qui envoie un mail automatiquement, mais j'aimerais rajouter la signature de la personne à la fin du mail.

Actuellement j'utilise cette fonction, mais ce n'est pas exactement ce que je recherche:

Application.UserName

Avez-vous une idée svp ?

Merci par avance pour votre aide,
Sébastien.

[AlainTech]

Bonjour,

Si l'utilisateur a déjà une signature automatique dans ses mails, il existe une possibilité simple mais avec une contrainte.
Il faut afficher (Display) le mail avant de l'envoyer.

Ensuite, le code va différer en fonction du format du texte du mail (Texte brut, rtf ou html).

Montre-nous ton code de préparation du mail et je t'indiquerai comment y ajouter la signature.

[graphikris]

Bonjour AlainTech,

Ayant le meme probleme que Rainmax, je me permet d'entrer dans cette discussion sans interferer sur celle de RAINMAX.
Pour ma part, voici mon code (en ligne 33, j'ai mis une signature générique du bureau et non celle de la personne qui envoie le mail) :

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
38
39
40
 'Recherche des adresses mails
            Dim MailPilote As Range
            Set MailPilote = Range("H5:H55")
            Dim MailResponsable As Range
            Set MailResponsable = Range("I5:I55")
            Dim MailEmetteur As Range
            Set MailEmetteur = Range("J5:J55")
 
 
            'Envoi du mail
 
            'Contrôler dans Visual Basic/Outils/Références/que Microsoft Outlook --,- Object Librairy est bien coché
            Dim olapp As Outlook.Application
            Dim msg As MailItem
            Set olapp = New Outlook.Application
            Set msg = olapp.CreateItem(olMailItem)
            'Adresse des cellules contenant la liste des adresses mails
            If MailPilote.Cells.Count > 1 Then
                msg.To = Join(Application.Transpose(MailResponsable.Value), ";") & ";" & Join(Application.Transpose(MailPilote.Value), ";") & ";" & Join(Application.Transpose(MailEmetteur.Value), ";")
            Else
                msg.To = MailPilote.Value & ";" & MailResponsable.Value
            End If
 
            'Envoi en copie
            msg.CC = " "
            'Envoi en copie cachée
            msg.BCC = " "
            'Saisir le sujet de l'envoi
            msg.Subject = "Sujet du mail"
            'Saisie du message
            'Saisir Corps du message
            msg.Body = "Mail mensuel généré automatiquement à destination des xxxxxx." & Chr(13) & Chr(13) & "Le Bureau xxxx attend de votre part :" & Chr(13) & "- xxxxxx." & Chr(13) & "- xxxx." & Chr(13) & "- xxxxxx" & Chr(13) & "- xxxxxx." & Chr(13) & Chr(13) & "xxxxxxx" & Chr(13) & Chr(13) & "Ci-joint le fichier Pdf concernant xxxxx." & Chr(13) & Chr(13) & "Sur demande, le xxxx peut vous retransmettre xxxxx." & Chr(13) & Chr(13) & "Nota : Les émetteurs sont également informés ." _
                       & Chr(13) & Chr(13) & Chr(13) & "Respectueusement," & Chr(13) & "L'équipe du xxxxxxx."
 
            'Adresse de la pièce jointe
            msg.Attachments.Add Source:=NomPdf
 
            msg.Display
            'Transmission du message
            msg.Send

[Oliv-]

bjr,
quel code utilises tu actuellement ? avec quelle version de OUTLOOK ?

Pour afficher la signature par défaut de l'utilisateur il faut faire un .display lorsque tu crées le mail