Mail avec pdf
Bonjour,
J'essaie de faire une macro qui envoie un mail avec l'impression en pdf de la feuille.
la macro bloque à partir de activeSheet.
De plus, je souhaiterai que le mail soit envoyé à la cellule d14.
Est-ce que quelqu'un pourrait m'aider car je combine des macros entre elles car je n'ai jamais appris le langage.
Autre question, peut-on donner la possibilité à la personne qui reçoit le mail de compléter certains champs sur le pdf si j'utilise pdf professionnal?
Merci d'avance
Sub mail_avec_PJ()
'mail qui envoie en pj le pdf
'
Dim i As Integer
Dim ol As Object, olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.Application.CreateItem(olMailItem)
With olmail
.To = "dupont@gmail.com"
.Subject = "demande de devis"
.HTMLBody = "Bonjour,<br/><br/> Veuillez trouver ci-joint la demande de devis <b> "
.ReplyRecipients.Add ("dupont@orange.fr")
'on cré le fichier PDFdans le même dossier que le fichier source
ActiveSheet.ExportAsFixedFormat Type:=xlTypexslm, Filename:= _
ActiveWorkbook.Path & "\" & "devis_carburant_cuve.PDF"
piece_jointe = ActiveWorkbook.Path & "\" & "devis_carburant_cuve.PDF"
objMessage.AddAttachment (piece_jointe) 'On ajoute la piéce jointe, il est possible d'envoyer plusieurs pièces
'objMessage.AddAttachment (piece_bis) 'dans ce cas on ajoute un objMessage.AddAttachement () par pièce
.Display
End With
MsgBox "La demande de devis est préparé et se trouve dans la boite mail en brouillon"
End Sub
Bonjour,
J'essaie maintenant de joindre une pj en xls au lieu de pdf.
J'ai remplacé.pdf par .xls mais cela ne fonctionne pas. il bloque à format Type =
Que faut-il mettre?
De plus, l'accusé de lecture fonctionne bien en pdf mais j'aimerai aussi l'accusé de réception et je ne trouve pas...
Merci pour votre aide
Sub Macro7()
'
' Macro7 Macro
Dim messagerie As Object
Dim email As Object
Dim nompdf As String
On Error GoTo erreur
nompdf = Environ("Temp") & "\" & "devis carburant cuve" & " " & Range("nom")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set messagerie = CreateObject("Outlook.Application")
Set email = messagerie.CreateItem(0)
With email
.To = ""
.Subject = "demande de devis carburant-" & [A12] & "-"
.HTMLBody = "Bonjour,<br/><br/> Veuillez trouver ci-joint la demande de devis concernant le " & Range("libelle") & ". " & "<br/><br/>L 'offre de prix est à nous retourner <b>sous 24h maximum par retour de ce mail</b> à .<br/><br/>Dans l'attente de votre réponse, & .HTMLBody
.ReadReceiptRequested = True
.ReplyRecipients.Add (".fr")
.Attachments.Add nompdf & ".xls"
.Display
End With
Set email = Nothing
Set messagerie = Nothing
Kill Environ("Temp") & "\" & "devis carburant cuve" & " " & Range("nom") & ".xls"
Exit Sub
erreur:
MsgBox "Erreur : " & Err.Number & vbLf & Err.Description
End Sub
je suggere de regarder sur YouTube