XL 2016 Signature mail outlook avec VBA

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Philou0607

Philou0607

XLDnaute Nouveau
Bonjour,
Je souhaiterais pouvoir insérer mon attache de signature à la fin de mon message (colonne E). Elle a été créée dans Outlook et se nomme MaSignature.
Comment et où puis je l'insérer dans le code joint svp ?
Merci bcp par avance
Philippe

Sub EnvoiMailCertifHS()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("EnvoiMailCertifHS")
Dim i As Integer

Dim OA As Object
Dim msg As Object


Set OA = CreateObject("outlook.application")

Dim last_row As Integer
last_row = Application.CountA(sh.Range("A:A"))

For i = 2 To last_row
If sh.Range("L" & i).Value <> "NON" Then
Set msg = OA.CreateItem(0)
msg.To = sh.Range("A" & i).Value
msg.CC = sh.Range("B" & i).Value
msg.BCC = sh.Range("C" & i).Value
msg.Subject = sh.Range("D" & i).Value
msg.Body = sh.Range("E" & i).Value


If sh.Range("F" & i).Value <> "" Then
msg.Attachments.Add sh.Range("F" & i).Value
End If
If sh.Range("G" & i).Value <> "" Then
msg.Attachments.Add sh.Range("G" & i).Value
End If
If sh.Range("H" & i).Value <> "" Then
msg.Attachments.Add sh.Range("H" & i).Value
End If
If sh.Range("I" & i).Value <> "" Then
msg.Attachments.Add sh.Range("I" & i).Value
End If
If sh.Range("J" & i).Value <> "" Then
msg.Attachments.Add sh.Range("J" & i).Value
End If
If sh.Range("K" & i).Value <> "" Then
msg.Attachments.Add sh.Range("K" & i).Value
End If
msg.Send
sh.Range("L" & i).Value = "Envoyé"
End If
Next i
MsgBox "Messages Envoyés"

End Sub
Sub EffacerD()
Range("D2😀100").ClearContents
End Sub
Sub EffacerE()
Range("E2:E100").ClearContents
End Sub
Sub EffacerF()
Range("F2:F100").ClearContents
End Sub
Sub EffacerG()
Range("G2:G100").ClearContents
End Sub
Sub EffacerH()
Range("H2:H100").ClearContents
End Sub
Sub EffacerI()
Range("I2:I100").ClearContents
End Sub
Sub EffacerJ()
Range("J2:J100").ClearContents
End Sub
Sub EffacerK()
Range("K2:K100").ClearContents
End Sub
Sub EffacerL()
Range("L2:L100").ClearContents
End Sub
Sub EffacerM()
Range("M2:M100").ClearContents
End Sub

Sub Fichier()
Dim file_path As String
file_path = Application.GetOpenFilename(MultiSelect:=False)
If file_path <> "False" Then
Selection.Value = file_path
End If
End Sub
 

Pièces jointes

Trier par date Trier par votes
Philou0607 à dit:
Bonjour,
Je souhaiterais pouvoir insérer mon attache de signature à la fin de mon message (colonne E). Elle a été créée dans Outlook et se nomme MaSignature.
Comment et où puis je l'insérer dans le code joint svp ?
Merci bcp par avance
Philippe

Sub EnvoiMailCertifHS()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("EnvoiMailCertifHS")
Dim i As Integer

Dim OA As Object
Dim msg As Object


Set OA = CreateObject("outlook.application")

Dim last_row As Integer
last_row = Application.CountA(sh.Range("A:A"))

For i = 2 To last_row
If sh.Range("L" & i).Value <> "NON" Then
Set msg = OA.CreateItem(0)
msg.To = sh.Range("A" & i).Value
msg.CC = sh.Range("B" & i).Value
msg.BCC = sh.Range("C" & i).Value
msg.Subject = sh.Range("D" & i).Value



If sh.Range("F" & i).Value <> "" Then
msg.Attachments.Add sh.Range("F" & i).Value
End If
If sh.Range("G" & i).Value <> "" Then
msg.Attachments.Add sh.Range("G" & i).Value
End If
If sh.Range("H" & i).Value <> "" Then
msg.Attachments.Add sh.Range("H" & i).Value
End If
If sh.Range("I" & i).Value <> "" Then
msg.Attachments.Add sh.Range("I" & i).Value
End If
If sh.Range("J" & i).Value <> "" Then
msg.Attachments.Add sh.Range("J" & i).Value
End If
If sh.Range("K" & i).Value <> "" Then
msg.Attachments.Add sh.Range("K" & i).Value
End If
msg.Send
sh.Range("L" & i).Value = "Envoyé"
End If
Next i
MsgBox "Messages Envoyés"

End Sub
Sub EffacerD()
Range("D2😀100").ClearContents
End Sub
Sub EffacerE()
Range("E2:E100").ClearContents
End Sub
Sub EffacerF()
Range("F2:F100").ClearContents
End Sub
Sub EffacerG()
Range("G2:G100").ClearContents
End Sub
Sub EffacerH()
Range("H2:H100").ClearContents
End Sub
Sub EffacerI()
Range("I2:I100").ClearContents
End Sub
Sub EffacerJ()
Range("J2:J100").ClearContents
End Sub
Sub EffacerK()
Range("K2:K100").ClearContents
End Sub
Sub EffacerL()
Range("L2:L100").ClearContents
End Sub
Sub EffacerM()
Range("M2:M100").ClearContents
End Sub

Sub Fichier()
Dim file_path As String
file_path = Application.GetOpenFilename(MultiSelect:=False)
If file_path <> "False" Then
Selection.Value = file_path
End If
End Sub
Cliquez pour agrandir...
Bonjour,

Pouvez-vous me dire, SVP, quelle est la modification a apporter pour que les saut de ligne soient pris en compte
kiki29 à dit:
Salut, voir sur le site de Ron de Bruin : Insert Outlook Signature in mail
Cliquez pour agrandir...
Bonjour,

Pourriez-vous, s'il vous plaît, m'indiquer quelle modification doit être effectuée afin que les sauts de ligne dans le corps du message "msg.Body = sh.Range("E" & i).Value" soient préservés lors de l'ajout de la signature ?

Dim imgPath As String
imgPath = "C:\Users\aisaac\Pictures\signature.jpg" ' Remplacez par le chemin correct vers votre image

With msg
.HTMLBody = msg.Body & "<br><img src='signature.jpg'><br>" 'nom du fichier
.Attachments.Add imgPath, 1, 0, "signature.jpg" 'nom du fichier
End With

Je vous remercie par avance pour votre aide.

cdt
Prya
 
Vote positif 0 Vote négatif
Bonjour à tous,
Salut Philou0607 😉

Tout simplement, il faut afficher le message lors de la création et le mettre en HTML
VB: 
   If sh.Range("L" & i).Value <> "NON" Then
    Set msg = OA.CreateItem(0)
    ' Afficher le mail pour récupérer la signature
    msg.display
    msg.To = sh.Range("A" & i).Value
    msg.CC = sh.Range("B" & i).Value
    msg.BCC = sh.Range("C" & i).Value
    msg.Subject = sh.Range("D" & i).Value
    ' Remplacer les sauts à la ligne forcés par des codes HTML
    Dim sBody as String
    sBody = Replace(sh.Range("E" & i), Chr(10), "<br>")
    ' Ajouter la signature au message
    msg.HTMLbody = sBody & msg.HTMLbody
' Etc...

A+
 
Vote positif 0 Vote négatif
wDog66 à dit:
Bonjour à tous,
Salut Philou0607 😉

Tout simplement, il faut afficher le message lors de la création et le mettre en HTML
VB: 
   If sh.Range("L" & i).Value <> "NON" Then
    Set msg = OA.CreateItem(0)
    ' Afficher le mail pour récupérer la signature
    msg.display
    msg.To = sh.Range("A" & i).Value
    msg.CC = sh.Range("B" & i).Value
    msg.BCC = sh.Range("C" & i).Value
    msg.Subject = sh.Range("D" & i).Value
    ' Remplacer les sauts à la ligne forcés par des codes HTML
    Dim sBody as String
    sBody = Replace(sh.Range("E" & i), Chr(10), "<br>")
    ' Ajouter la signature au message
    msg.HTMLbody = sBody & msg.HTMLbody
' Etc...

A+
Cliquez pour agrandir...
Merci beaucoup wDoog66. C'est parfait !
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
envois automatique d'email avec EXCEL et une MACRO
Réponses
4
Affichages
1 K
AtTheOne
AtTheOne
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
461
Minus&Cortex
M
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
248
CortoXls
C
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
95
KRUG WOO
K
G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
96
fanch55
fanch55
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
333
Gestionnaire_rh
G
klin89
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
394
patricktoulon
patricktoulon
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
216
patricktoulon
patricktoulon
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
83
crocrocro
C
C
  • Résolu(e)
XL 2021 VBA : Afficher plusieurs résultats d'une boucle dans une cellule
Réponses
3
Affichages
189
Claudinedu13
C
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
372
pangasoul
P
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
499
GClaire
G
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
360
Oneida
Oneida
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
547
Dranreb
Dranreb
P
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
110
papychat1
P
C
  • Résolu(e)
XL 2021 Additionner résultats d'une boucle for en vba
Réponses
9
Affichages
509
Claudinedu13
C
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
737
Carolinebd
C
M
  • Question Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
403
Gégé-45550
Gégé-45550
piga25
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
79
piga25
piga25
H
  • Question Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
594
HANN
H
Retour