• Initiateur de la discussion Initiateur de la discussion zizan
  • Date de début Date de début

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 !

zizan

XLDnaute Nouveau
Bonjour,

J'ai créé un code pour sauvegarder une feuille en PDF dans un dossier spécifique, puis l'envoyer via ma boite mail. ce code fonctionne, mais l'application outlook, met automatiquement le compte par défaut.
Voici le code:
Sub Enreg_Pdf_Imprimer_Envoyer()
'fonction permettant d'enregistrer au format PDF
Dim Mois As String, Chemin As String, Loc As String
Mois = Format(Now(), "mmmm yyyy")
Chemin = "C:\Users\Quittance de "
Loc = Range("E5").Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & Mois & Loc & ".pdf"
Set olApp = CreateObject("Outlook.application")
Set mail = olApp.CreateItem(olMailItem)
With mail
MsgBox "ATTENTION: Avant l'envoi du mail, modifier l'expéditeur"
.To = "xxxxxx@orange.fr"
.Subject = "Quittance " & Mois
.Body = "Bonjour," & vbCrLf & vbCrLf & "Veuillez trouver en piéce jointe votre quittance du mois écoulé" & vbCrLf & vbCrLf & "Cordialement" & vbCrLf & vbCrLf & "xxxxxxxxxxxxxxxx"
.Attachments.Add Chemin & Mois & Loc & ".pdf"
.display True 'affiche le mail prêt à l'envoi, pour vérification
End With
End Sub

Je voudrais envoyer mon pdf via outlook mais avec une adresse différente que celle par défaut.
Merci d'avance pour votre aide.
 
- 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

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Réponses
2
Affichages
809
Retour