Macro d'envoi de mail avec erreur

Bonjour

Je viens d'essayer une MACRO pour envoyer par mail une pièce jointe et avoir un texte dans le corps du mail.

Voici ma MACRO :

Sub A1_envoimail()

'

' envoie un mail avec la pièce jointe

'

Dim ol As Object, monItem As Object

Set ol = CreateObject("outlook.application")

Set monItem = ol.CreateItem(olMailItem)

monItem.To = "carole.catorc@renolit.com "

monItem.Subject = "objet du mail"

monItem.Body = "Bonjour" & Chr(13) & Chr(13) & "Je vous prie de bien vouloir trouver blabla"

Set mondoc = monItem.Attachments

mondoc.Add ActiveDocument.FullName

monItem.Send

Set ol = Nothing

MsgBox "la demande a bien été transmise "

End Sub

Cependant, j'ai un message d'erreur sur

'mondoc.Add ActiveDocument'

voici le message : Erreur d'exécution '424 Objet requis

Merci de votre aide

Carole

Bonjour,

tu lances ta macro depuis word ? c'est bien cela ?

le document actif doit être sauvé avant de pouvoir utiliser la propriété fullname sur activedocument.

NON depuis EXCEL

Merci

cracroc a écrit :

NON depuis EXCEL

Merci

H2SO4 a raison. "ActiveDocument" n'est pas lié à Excel mais bien à Word.

Dans ton excel, tu as probablement copié une macro écrite pour Word.

Essaie ceci (vite trouvé sur Internet):

Sub CreateMail()

     Dim objOutlook As Object
     Dim objMail As Object
     Dim rngTo As Range
     Dim rngSubject As Range
     Dim rngBody As Range
     Dim rngAttach As Range

     Set objOutlook = CreateObject("Outlook.Application")
     Set objMail = objOutlook.CreateItem(0)

     With ActiveSheet
         Set rngTo = .Range("B1")
         Set rngSubject = .Range("B2")
         Set rngBody = .Range("B3")
         Set rngAttach = .Range("B4") ' ceci est le chemin complet vers ton fichier: par ex.: C:\Temp\MonFichier.txt
     End With

     With objMail
         .To = rngTo.Value
         .Subject = rngSubject.Value
         .Body = rngBody.Value
         .Attachments.Add rngAttach.Value
         .Display 'Instead of .Display, you can use .Send to send the email _
                     or .Save to save a copy in the drafts folder
     End With

     Set objOutlook = Nothing
     Set objMail = Nothing
     Set rngTo = Nothing
     Set rngSubject = Nothing
     Set rngBody = Nothing
     Set rngAttach = Nothing

End Sub 

Vois la ligne: Set rngAttach = .Range("B4")

re-bonjour,

activedocument se rapporte à un document word. si tu veux envoyer ton classeur essaie avec

mondoc.add thisworkbook.fullname  '(doit avoir été sauvé au moins une fois) 

ALLELUIA !!!!!!!!!!!!!!!!!!!!!!!

MERCIIIIIIIIIIIII

Bonne journée

Carole

ENCORE BESOIN D'AIDE

J'ai mis plusieurs destinataires et j'ai un message d'erreur sur monItem.Send

"Impossible de reconaitre un ou plusieurs noms"

Merci

Sub A0_EnvoiCode_a_CC()

'

' envoie un mail avec la pièce jointe

' envoi du mail à CC + CPE pour attribution d'un numéro de dossier

Cells(5, 4) = "OK le " & Date 'Transformation de Attente de validation en OK + date d'envoi

Dim ol As Object, monItem As Object

Set ol = CreateObject("outlook.application")

Set monItem = ol.CreateItem(olMailItem)

monItem.To = "carole.catorc@renolit.com,internet.ondex@renolit.com" 'destinataires

monItem.Subject = "Création du dossier d'étude d'un nouveau produit" 'objet

monItem.Body = "Bonjour" & vbNewLine & vbNewLine & _

"Ci-joint la demande d'étude faite par " & Cells(3, 3) & vbNewLine & vbNewLine & _

"Cordialement" & vbNewLine & vbNewLine & _

Cells(3, 3)

'FIN de Corps du mail

Set mondoc = monItem.Attachments

mondoc.Add ThisWorkbook.FullName

monItem.Send

Set ol = Nothing

MsgBox "Votre demande a été transmise par mail à Carole et Céline P pour attibution d'un numéro de dossier" 'Message qui apparait après l'envoi du mail

End Sub

Désolée du dérangement? j'ai trouvé

Merci

Bonne journée

Carole

Bonjour,

essaie avec un point virgule(;) entre les noms au lieu d'une virgule(,).

Bonjour,

Tu devrais essayer d'utiliser un point virgule entre les différentes adresses ...