email template

[Trevor3007]

hello,

I currently use :-

[COLOR=#3366CC]    Dim OutApp As Object[/COLOR]    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    On Error Resume Next
    With OutMail
        .to = ""
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add ActiveWorkbook.FullName
                .Send   [COLOR=black]'or use .Display[/COLOR]
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing [COLOR=#3366CC]End Sub[/COLOR]

which is at the end of my vb project.


However, is it possible to include the file name in the subject line ?

also, i need to include several lines of text & my contact details in the body of the message too.

Oh... I dont what it to auto send, as it does at present....

can anyone please solve this for me?

MTIA & kind regards
Trevor3007

 

[mrshl9898]

Hi,

This will add the book name in the code.

As for the body, you may want to copy stuff in there? You may want to look at RangetoHTML by Ron de Bruin

    Sub mail()
    
    Dim wbname As String
    Dim OutApp As Object
    Dim OutMail As Object


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    wbname = ThisWorkbook.Name


    On Error Resume Next
    With OutMail
        .to = "ron@debruin.nl"
        .CC = ""
        .BCC = ""
        .Subject = wbname
        .Body = "Hi there"
        .Attachments.Add ActiveWorkbook.FullName
        'You can add other files also like this
        '.Attachments.Add ("C:\test.txt")
        .Send   'or use .Display
    End With
    On Error GoTo 0


    Set OutMail = Nothing
    Set OutApp = Nothing
    
    End Sub

 

[Michael M]

Also, change this line

.Send   'or use .Display

To

.Display 'or use .send

 

[Trevor3007]

Also, change this line

.Send   'or use .Display

To

.Display 'or use .send

many thanks double M

your tip worked a treat..

KR
Trevor 3007