commander outlook

[genius]

bonjour,

j'essais de preparer un message outlook le plus complet possible avec une piece jointe hors c'est ce dernier point que je ne parviens pas à réaliser

voici mon code qui est sous vba excel
Dim appOutLook As Outlook.Application
Dim oEmail As Outlook.MailItem

Set appOutLook = CreateObject("Outlook.Application")
Set oEmail = appOutLook.CreateItem(olMailItem)
oEmail.To = Sheets("base").Range("M1").Value
oEmail.CC = Sheets("base").Range("N1").Value
oEmail.Subject = "Vendor " & Sheets("base").Range("O1").Value & " Indicator"
oEmail.Attachments.Add ActiveWorkbook.FullName
oEmail.Display

Ce code est lancé d'un fichier excel que je souhaite attaché d'ou le :
oEmail.Attachments.Add ActiveWorkbook.FullName
mais n'étant pas encore enregistrer la valeur de ActiveWorkbook.FullName correspond au nom du fichier et pas un chemin + nom.

Si vous voyer une sol merci pour votre aide

 

[Jocelyn]

salut le forum
salut genius,

je ne sait pas si cela va t'aider ni si c'est exactement ce que tu veus faire, mais dans un fichier excel j'ai une macro reliée a un bouton qui me permet d'envoye un mail soit a une liste soit a une personne prédefini, avec ce meme fichier excel en pièce jointe.

Sub Message()
'
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "nom du des tinataire ou de la liste"
.Subject = "Distribution: nom du fichier"
.Message = "ton message"
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = True
End With
ActiveWorkbook.Route
End Sub

tu pe toujours essaye de la manipulé pour toi


jocelyn