E
Eric D
Guest
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
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