Attaching a file to an automated email

[philfloyduk]

Hi.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I use a spreadsheet with Visual Basic that automatically produces a PDF invoice and also sends a confirmation email once a job has been completed on the system. I'd like the email to have the PDF attached to it. I have two textboxes on the form that manages these jobs, one contains the file name, the other contains the location of the file. I'd like to use this information to locate the file that's attached to the email.<o></o>
<o></o>
I've tried to modify the following line of text to locate my file but I'm struggling:<o></o>
<o></o>
myEmailMessage.Attachments.Add TheFileLocation & TheFileName & FileExtStr<o></o>
<o></o>
The textbox names are:<o></o>
<o></o>
tbPDFFileExtension, &<o></o>
tbFileName<o></o>
<o></o>
Any help would be gratefully received.<o></o>
<o></o>
Thanks in advance,<o></o>
<o></o>
Phil<o></o>
<o> </o>

 

[Mike Blackman]

Hi,

You can use this;

Sub Mailer()

    Dim OutApp As Object, OutMail As Object
                   
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .To = ""
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = ""
        .Attachments.Add ActiveWorkbook.FullName 'Change to suit
        .Display
    End With
                    
    Set OutMail = Nothing
    Set OutApp = Nothing
            
End Sub

 

[philfloyduk]

Hi Mikey, thanks for you response.

How to I ammend the .add line to locate the file from the information in my textboxes?

 

[Mike Blackman]

Hi,

Just put in the filepath instead of ActiveWorkbook.

.Attachments.Add "C/Desktop/MyFile.pdf"