commander outlook

genius · 14 Juin 2004

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 · 14 Juin 2004

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

commander outlook

genius

Guest

Jocelyn

Guest

Discussions similaires

commander outlook

genius

Guest

Jocelyn

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency