Macro help please

[Guest]

Hi,

I need to create a macro that will automatically enter text in an email.
However the text is 5 sentences long and each sentence must be on a
different line. Also the signature must appear.

ANyone know how?

 

[Michael Bauer]

Hi,

calling GetInspector forces to add the sig without displaying the item.

Sub test()
Dim oMail As Outlook.MailItem
Dim oInsp As Outlook.Inspector
Set oMail = Application.CreateItem(olMailItem)
Set oInsp = oMail.GetInspector
oMail.Body = "hallo" & oMail.Body
End Sub

 

[Guest]

It didnt work.
nothign happens

Hi,

calling GetInspector forces to add the sig without displaying the item.

Sub test()
Dim oMail As Outlook.MailItem
Dim oInsp As Outlook.Inspector
Set oMail = Application.CreateItem(olMailItem)
Set oInsp = oMail.GetInspector
oMail.Body = "hallo" & oMail.Body
End Sub

 

[Michael Bauer]

It´s not the solution for your question, but a sample for how to create
a MailItem, write text into etc.

For testing step by step you can set the cursor into the function and
press F8.

For your writing your sentences in different lines you can use vbCRL:
omail.body= "sentence 1" & vbCRLF & "2"