Envoi email

Bonjour,

J'ai trouvé un bout de code VBA qui me permet d'envoyer des emails.

Dans ce mail je dois ajouter un pièce jointe qui se trouve dans un dossier spécifique.

Je dois répéter cette opération 20x.

A l'exécution, l’explorateur de fichier s'ouvre et me demande de sélectionner ma PJ puis génère le mail et l'affiche.

Par contre l'explorateur s'ouvre là ou je l'ai fermé la dernière fois...

Dans le code ci-dessous, est-il possible de spécifier le chemin que je souhaite que l'explorateur ouvre ?

Chaque mail que je dois envoyer doit comporter une PJ qui se trouve dans un dossier différent des autres mails.

Bien sûr, j'ai créer des différents bouton et j'ai adapté le code en fonction du destinataire du mail.

Je vous remercie d'avance pour votre aide.

Sub send_single_email_with_chosen_attachment()
'Must add references (Tools > References) to
' 1) OLE Automation
' 2) Microsoft Outlook xx.0 Object Library
Dim outlookApp As Outlook.Application
Dim myMail As Outlook.MailItem
Dim Source_File As String

Set outlookApp = New Outlook.Application
Set myMail = outlookApp.CreateItem(olMailItem)

myMail.To = "ryan.wellsr@gmail.com"
myMail.Subject = "Check Out my File!"
'myMail.HTMLBody = "<b>This is bold</b><br> and this isn't" 'uncomment this if you want a formatted body

Source_File = Application.GetOpenFilename
myMail.Attachments.Add Source_File

myMail.Display True 'comment this out if you don't want to display email
'myMail.send 'comment this out if you don't want to send yet

End Sub

Bonjour,

Un essai ...

La ligne ChDrive "T" n'est pas nécessaire si tu restes sur le même lecteur.

Sinon, adapter à la lettre d'unité désirée.

Sub send_single_email_with_chosen_attachment()
'Must add references (Tools > References) to
' 1) OLE Automation
' 2) Microsoft Outlook xx.0 Object Library
Dim outlookApp As Outlook.Application
Dim myMail As Outlook.MailItem
Dim Source_File As String

Set outlookApp = New Outlook.Application
Set myMail = outlookApp.CreateItem(olMailItem)

myMail.To = "ryan.wellsr@gmail.com"
myMail.Subject = "Check Out my File!"
'myMail.HTMLBody = "<b>This is bold</b><br> and this isn't" 'uncomment this if you want a formatted body

'Place l'utilisateur dans le bon répertoire
ChDrive "T"                ' <<< Ajout ' à adapter si lecteur différent ou à supprimer si même lecteur que le fichier
ChDir "T:\TestExcel\"      ' <<< ajout ' à adapter ...

'ouvre la boite de dialogue de choix du fichier
Source_File = Application.GetOpenFilename
myMail.Attachments.Add Source_File

myMail.Display True 'comment this out if you don't want to display email
'myMail.send 'comment this out if you don't want to send yet

End Sub

ric

Bonjour Ric,

Cela marche parfaitement.

Grand merci pour ton aide