fichier à un emplacement particulier par mail

[osiris150]

Bonjour,

Je souhaiterai envoyer un fichier par mail via une macro se trouvant dans le répertoire :
C:\Documents and Settings\Nicolas BERTIN\Mes documents\camion porcelanosa.pdf . J'ai bien trouvé des macros pour envoyer des mails mais pour envoyer un fichier provenant d'un répertoire particulier, rien du tout.

Si quelq'un peut m'aider. Merci par avance.🙂

 

[Pierrot93]

Re : fichier à un emplacement particulier par mail

Bonjour Osiris

regarde ci dessous, adaptation d'un code de MichelXLD 🙂 (on ne le remerciera jamais assez), si cela peut t'aider :

Private Sub EmissionMailOutlook()
' déclaration des variables
Dim appOutlook As Outlook.Application
Dim message As Outlook.MailItem
Dim myRecipient As Object
Dim email As String

'Crée une session Microsoft Outlook
Set appOutlook = CreateObject("outlook.application")

'Crée un nouveau message
Set message = appOutlook.CreateItem(olMailItem)

' initialisation de variables
email = "xx.xxxxx@xxx.com"

'Titre, texte, destinataires, etc ... et envoi.
With message
.Subject = "Sujet du message"
.Body = "Bonjour," & vbCr & vbCr & _
"Bla Bla Bla ....... " & vbCr & vbCr & _
"Cordialement," & vbCr & vbCr & _
"Signature."
.Recipients.Add (email)
.Attachments.Add "C:\Documents and Settings\Nicolas BERTIN\Mes documents\camion porcelanosa.pdf "
.Send
End With
End Sub

bonne fin d'après midi
@+

Edition : code valide uniquement avec Outlook