Generating an Email with VBS ?

[JumboCactuar]

Hi,
i know VBS works almost exactly like VBA so this should be doable:

i have the following which currently works:

Dim outobj, mailobj
          Dim strFileText
          Dim objFileToRead


Name1 = Inputbox("Enter Name")
Code1 = Inputbox("Enter your Code")


          Set outobj = CreateObject("Outlook.Application")
          Set mailobj = outobj.CreateItem(0)


            With mailobj
	    .to = "testto@mail.com"
            .cc = "testcc@mail.com"
            .Subject = "Test"
            .Body = "Hi," & vbCrLf & vbCrLf & _
"Name:" & " " & Name1 & vbCrLf & _
"Code:" & " " & Code1 & vbCrLf & vbCrLf & _
"Best Regards,"


.Display
          End With


          'Clear the memory
          Set outobj = Nothing
          Set mailobj = Nothing

Though im wanting to include the default signature, exactly how it would it outlook
Also would like to bold the Name1 and Code1 parts of the body, is it possible?

Any help appreciated

 

[Domenic]

You can use HTML code to achieve the desired result. First, build a string that contains the HTML code...

Dim strHTML As String

strHTML = "<p>Hi,</p>" & _
    "<p>Name: <b>" & Name1 & "</b><br>" & _
    "Code: <b>" & Code1 & "</b></p>" & _
    "<p>Best Regards,</p>"

Then assign the HTML string to the .HTMLBody property of the MailItem object...

.htmlbody = strHTML

To add a signature, have a look at the following link...

https://www.rondebruin.nl/win/s1/outlook/signature.htm

Hope this helps!

 

[JumboCactuar]

@Domenic thankyou, got it working

 

[Domenic]

You're very welcome!

Cheers!