Pb avec Pièce jointe ds Mail

[Eric D]

Bonjour le forum,

j'ai ce code pour envoyer un mail, mais une erreur ce produit sur'.Attchments...', il me dit que la propriété ou la méthode n'est pas gérée par l'objet???

Dim OlApp As New Outlook.Application
Dim mItem As Outlook.MailItem
Dim Sujet As String, Msg As String, EmailAddr As String

Set mItem = OlApp.CreateItem(olMailItem)

Sujet = 'Test Mail'
Msg = 'mon message'

For ct = 1 To 10 'boucle pour plusieurs destinataires
If Range('DE' & 1000 + ct).Value <> '' Then
EmailAddr = Range('DE' & 1000 + ct).Value

With mItem
.To = EmailAddr
.Subject = Sujet
.Body = Msg
.Attachments.Add Sheets('ma_feuille')
.Send
End With
End If
Next ct

Comment faire pour envoyer ce mail avec pièce jointe?
Merci pour vos solutiopns.
EricD

 

[MichelXld]

bonjour Eric

j'espere avoir bien compris ta demande ( j'ai interprété que tu souhaites joindre une feuille précise aux messages )

Sub envoiFeuille()
Dim OlApp As New Outlook.Application
Dim mItem As Outlook.MailItem
Dim Sujet As String, Msg As String, EmailAddr As String
Dim FichierTemp As String
Dim Ct As Byte

FichierTemp = 'C:\\monClasseur.xls'
Set mItem = OlApp.CreateItem(olMailItem)
Sujet = 'Test Mail'
Msg = 'mon message'

ThisWorkbook.Sheets('ma_feuille'Â'Â').Copy 'copier la feuille que l'on souhaite envoyer
ActiveWorkbook.SaveAs FichierTemp 'la sauvegarder
ActiveWorkbook.Close

For Ct = 1 To 10 'boucle pour plusieurs destinataires
'adapter le nom de la feuille contenant les adresses
If ThisWorkbook.Sheets('Feuil2'Â'Â').Range('DE' & 1000 + Ct).Value <> '' Then
EmailAddr = ThisWorkbook.Sheets('Feuil2'Â'Â').Range('DE' & 1000 + Ct).Value

With mItem
.To = EmailAddr
.Subject = Sujet
.Body = Msg
.Attachments.Add FichierTemp 'joindre le fichier
.Send
End With
End If

Next Ct

Kill FichierTemp 'suppression fichier temporaire
End Sub

bonne soiree
MichelXld

Message édité par: MichelXld, à: 27/05/2005 19:55

 

[Eric D]

Bonjour Michel,

Je te remercie, ça marche nickel.
Bon Dimanche
Eric D