Bonjour le forum
chez moi avec ce code pour envoyer un mail par Outlook cela marche très bien
mais dans mon travail on utilise thunderbird et je n'arrive à insérer la pièce jointe créee en pdf
Il s' agit d' une feuille excel qui se transforme en pdf pour être envoyée
et là je bloque
Pourriez-vous m' aider svp . je vous envoye le code que j utilise chez moi
mais qui n' a pas un grand intéret dans mon lieu de travail
Merci pour votre aide
Private Sub CommandButton4_Click() ' Envoi Facture par mail
Dim fichier$, fichier2$
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Sheets("Facture").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & "Facture.pdf"
LeFichier = ActiveWorkbook.Path & "\" & "Facture.pdf"
'==========Début d'ouverture de la nouvelle session de OutLook====================
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = Sheets("Devis").Range("Ctrl11").Text '.........le destinataire.....
.Subject = ("Facture") '........l'objet du mail
.Attachments.Add LeFichier '...ajout de la feuille active.....
.Body = "Veuillez trouvez ci-joint votre devis" & vbNewLine & vbNewLine & _
"Nous restons entierement à votre disposition" & vbNewLine & _
"Votre Responsable Commercial" & vbNewLine & _
"Cordialement" & vbNewLine & _
"" & vbNewLine & _
"" & vbNewLine & _
"SDI" & vbNewLine & _
objMail.Display
'.Send
End With
End Sub
chez moi avec ce code pour envoyer un mail par Outlook cela marche très bien
mais dans mon travail on utilise thunderbird et je n'arrive à insérer la pièce jointe créee en pdf
Il s' agit d' une feuille excel qui se transforme en pdf pour être envoyée
et là je bloque
Pourriez-vous m' aider svp . je vous envoye le code que j utilise chez moi
mais qui n' a pas un grand intéret dans mon lieu de travail
Merci pour votre aide
Private Sub CommandButton4_Click() ' Envoi Facture par mail
Dim fichier$, fichier2$
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Sheets("Facture").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & "\" & "Facture.pdf"
LeFichier = ActiveWorkbook.Path & "\" & "Facture.pdf"
'==========Début d'ouverture de la nouvelle session de OutLook====================
Set objOL = CreateObject("Outlook.Application")
Set objMail = objOL.CreateItem(olMailItem)
With objMail
.To = Sheets("Devis").Range("Ctrl11").Text '.........le destinataire.....
.Subject = ("Facture") '........l'objet du mail
.Attachments.Add LeFichier '...ajout de la feuille active.....
.Body = "Veuillez trouvez ci-joint votre devis" & vbNewLine & vbNewLine & _
"Nous restons entierement à votre disposition" & vbNewLine & _
"Votre Responsable Commercial" & vbNewLine & _
"Cordialement" & vbNewLine & _
"" & vbNewLine & _
"" & vbNewLine & _
"SDI" & vbNewLine & _
objMail.Display
'.Send
End With
End Sub