macro mail automatique

[cartus02]

bojour

bon reprenons a zero

j 'ai un bouton envoi mail ci-joint
je souhaiterai lorsque j'appuie dessus que ca m'envoi un mail
cependant l exemple que l'ai ne marche pas
pouvez vois m aider

merci😀

 

[Roland_M]

Re : macro mail automatique

re,

l'exemple que tu as est déjà un exemple qui se sert de CDO
donc ce n'est pas pour Outlook comme tu le souhaites !

je n'ai pas outlook je ne peux pas tester !
mais j'ai bien une routine que j'ai trouver pour toi qui est faite pour OutLook,
seulement si tu n'y connais rien tu auras du mal à l'adapter !?

je te la joint tout de même en l'état !

Public Sub EnvoiMailOutlook()
Dim OutApp As Object, OutMail As Object, NewB As Workbook
Dim AdresMail As String, AdresMailCC As String, AdresMailBCC As String
Dim Sujet As String, Msg As String
' !!!!!!!!!!!!!!!!!!!!!!   A REMPLIR   !!!!!!!!!!!!!!!!!!!!!!
AdresMail = "nom@site.fr" ' ?????????????????????
AdresMailCC = "nom@site.fr" ' ?????????????????????
AdresMailBCC = "nom@site.fr" ' ?????????????????????
Sujet "??????????????????????????????"
Msg = "??????????????????????????????"
' CECI COPIE UNE FEUILLE ACTIVE DANS UN NOUVEAU CLASSEUR
ActiveSheet.Copy
Set NewB = ActiveWorkbook
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\NomDeLaPieceJointe.xls" '??????????????????
' OUBVERTURE OUTLOOK POUR ENVOYE
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error GoTo 0
With OutMail
 .To = AdresMail
 .CC = AdresMailCC
 .BCC = AdresMailBCC
 .Subject = Sujet
 .Body = Msg
 .Attachments.Add NewB.FullName
 .Display
End With
' REFERME LE CLASSEUR
ActiveWorkbook.Close
' SUPPRIME LE CLASSEUR
Kill ThisWorkbook.Path & "\NomDeLaPieceJointe.xls"'??????????????????
End Sub