Bonjour a toutes et tous,
Enfin ma macro marche comme je veux, elle enregistre ma feuille en PDF, et l'envoie par mail.
Votre aide me serait encore précieuse pour deux chose.
La première est que quant j'utilise ma macro, il faut que je clique sur le bouton envoyer de Outlook. Serait il possible que le mail parte sans avoir besoin d'appuyer sur ce bouton "Envoyer".
La seconde, est le fait qu'en plus de ma macro, j'aimerai faire un impression de la feuille active (sur imprimante par default).
Voici ma macro actuellement:
Sub SendWithAtt()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
CurFile = ThisWorkbook.Path & "\" & Range("D1") & "_" & Format(Date, "dd-mmmm-yyyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "nom.prénom@domaine.fr"
.CC = ""
.Subject = "Litige SOBRAQUES BEZIERS"
.Body = "Bonjour," & vbCrLf & "Veuillez trouver en pièce jointe les litiges de ce jour" & vbCrLf & "Vous souhaitant bonne réception" & vbCrLf & "Le Service SAV BEZIERS" ' A modifier
.Attachments.Add CurFile
.Display
End With
MsgBox "Merci de bien vouloir vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."
Set olMail = Nothing
Set olApp = Nothing
End Sub
Merci pour toute l'aide que vous m'apportez.
JR.31
Enfin ma macro marche comme je veux, elle enregistre ma feuille en PDF, et l'envoie par mail.
Votre aide me serait encore précieuse pour deux chose.
La première est que quant j'utilise ma macro, il faut que je clique sur le bouton envoyer de Outlook. Serait il possible que le mail parte sans avoir besoin d'appuyer sur ce bouton "Envoyer".
La seconde, est le fait qu'en plus de ma macro, j'aimerai faire un impression de la feuille active (sur imprimante par default).
Voici ma macro actuellement:
Sub SendWithAtt()
Dim olApp As Outlook.Application
Dim olMail As MailItem
Dim CurFile As String
Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
CurFile = ThisWorkbook.Path & "\" & Range("D1") & "_" & Format(Date, "dd-mmmm-yyyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CurFile, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
With olMail
.To = "nom.prénom@domaine.fr"
.CC = ""
.Subject = "Litige SOBRAQUES BEZIERS"
.Body = "Bonjour," & vbCrLf & "Veuillez trouver en pièce jointe les litiges de ce jour" & vbCrLf & "Vous souhaitant bonne réception" & vbCrLf & "Le Service SAV BEZIERS" ' A modifier
.Attachments.Add CurFile
.Display
End With
MsgBox "Merci de bien vouloir vérifier que le message apparait dans -messages envoyés- dans votre messagerie OUTLOOK."
Set olMail = Nothing
Set olApp = Nothing
End Sub
Merci pour toute l'aide que vous m'apportez.
JR.31