Envoi mail (PJ) adresse dans cellule

[Manu62]

Bonjour,

J'utilise le code suivant :

Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)
Set myAttachments = MItem.Attachments
myAttachments.Add = "c:\..."
With MItem
.To = "ici l'adresse mail"
.Subject = "texte sujet"
.TextBody = "text "
.Send
End With


Je voudrais mettre ma cellule a1 à la place de c:\...

Merci à tous

Manu

 

[Catrice]

Re : Envoi mail (PJ) adresse dans cellule

Bonsoir,

Chez moi le code ci-dessous fonctionne avec par exemple en A1 : C:\Classeur2.xls.

Sub test()
Dim OutlookApp As Outlook.Application
Dim MItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set OutlookApp = New Outlook.Application
Set MItem = OutlookApp.CreateItem(olMailItem)
Set myAttachments = MItem.Attachments
myAttachments.Add Range("A1").Value 'Pas de signe "=" apres Add
With MItem
.To = "MonEmail@toto.fr"
.Subject = "texte sujet"
.Body = "text " 'Boby et non pas TextBody
.Send
End With
End Sub

Excel 2002 SP3
OutLook 2002 SP3