Re : Envoi par mail (adresse + objet + message)
Bonjour,
si j'ai bien compris, j'ai jouté la ligne:
Dim OL, olMailItem, MyItem As Object
dans le code comme ci-dessous, mais la macro plante toujours avec la même erreur et la ligne
Set OL = CreateObject("Outlook.Application")
est surlignée en jaune fluo.
Il y a toujours qq chose qui cloche mais quoi !??.
merci
André
---------------------------------------
Sub SendWorkBook()
Dim OL, olMailItem, MyItem As Object
Dim Maille As String
Dim Sujet As String
Maille = Sheets(1).Range("A1")
Sujet = Sheets(1).Range("A2")
Set OL = CreateObject("Outlook.Application")
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
.To = Maille
.Subject = Sujet
.Categories = "Banking-Info"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
MsgBox "Votre classeur a bien été envoyé", vbInformation, ""
End Sub
-------------------------------------------------------------------