Running a Macro when email arrives
 

Hello everybody. I trie to make a macro that print my incoming email that
contains in subject word "Comanda online".
This is the macro:

Private Sub Application_NewMail()

CheckMail

End Sub


Public Sub CheckMail()
Dim OlApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Dim InboxItems As Outlook.Items
Dim Mailobject As Object
Dim Subject As String


Set OlApp = CreateObject("Outlook.Application")
Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFold erInbox)
Set InboxItems = Inbox.Items
For Each Mailobject In InboxItems
If Mailobject.UnRead Then
Subject = Mailobject.Subject
If Subject = "Comanda online" Then
Mailobject.PrintOut
End If
Mailobject.UnRead = False
End If
Next

Set OlApp = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
End Sub

It's working, but i want to print only the body of the email.
Is this possible ?

Thank you.
Hope to reply to me.

url:http://www.ureader.com/msg/1081942.aspx

Running a Macro when email arrives
 

I'd probably create a Word document, insert the body of the email, and then
print the document instead of the email.

--
Best regards
Michael Bauer - MVP Outlook
Manage and share your categories:
http://www.vboffice.net/product.html?pub=6&lang=en


Am Mon, 4 Jan 2010 12:52:58 +0800 schrieb Gardos Catalin:

Hello everybody. I trie to make a macro that print my incoming email that
contains in subject word "Comanda online".
This is the macro:

Private Sub Application_NewMail()

CheckMail

End Sub


Public Sub CheckMail()
Dim OlApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim oOApp As Outlook.Application
Dim oOMail As Outlook.MailItem
Dim InboxItems As Outlook.Items
Dim Mailobject As Object
Dim Subject As String


Set OlApp = CreateObject("Outlook.Application")
Set Inbox = OlApp.GetNamespace("Mapi").GetDefaultFolder(olFold erInbox)
Set InboxItems = Inbox.Items
For Each Mailobject In InboxItems
If Mailobject.UnRead Then
Subject = Mailobject.Subject
If Subject = "Comanda online" Then
Mailobject.PrintOut
End If
Mailobject.UnRead = False
End If
Next

Set OlApp = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set Mailobject = Nothing
End Sub

It's working, but i want to print only the body of the email.
Is this possible ?

Thank you.
Hope to reply to me.

url:http://www.ureader.com/msg/1081942.aspx