pdf.files

[Elly]

When browsing through all our products, I want to be able to open a
previously created pdf.file with a photo and description of the product to
view and to attach to an email that will go to the customer. How can I do
this?

 

[Line Riendeau]

Hi,

The routin is:

Dim objEMail As Object
Dim iBP

Set objEMail = CreateObject("CDO.Message")
With objEMail
.From = "(e-mail address removed)"
.To = "(e-mail address removed)"
.Subject = "test de pièce jointe"
.TextBody = "test"
Set iBP = objEMail.AddAttachment("c:\tempo\nom du fichier.pdft")
.send
End With
Next cellule
Set objEMail = Nothing
Set iBP = Nothing