I am sending code which I am using Actually I have to save a message in Inbox folder of outlook, As I will open
this save message in Inbox folder.It should open with option (reply,reply to All,forward) .
With the help of Aspose dll file It is storing in my D drive sucessfully.And as I am opening it.It is opening with option (reply,reply to All,forward) .But as I am saving in outlook It is opening like a draft.
I have to open every time message with (reply,reply to All,forward) these option
Dim app As New Microsoft.Office.Interop.Outlook.Application()Dim ns As Microsoft.Office.Interop.Outlook.NameSpace = app.GetNamespace("MAPI")Dim inboxFolder As Microsoft.Office.Interop.Outlook.Folder
inboxFolder = ns.GetDefaultFolder(Microsoft.Office.Interop.Outlook.OlDefaultFolders.olFolderInbox)
Dim msg As MailMessage = New MailMessage()
' Set recipients information
msg.To = to@domain.com
msg.CC = cc@domain.com' Set the subject
msg.Subject = "Subject"
' Set Html body
msg.HtmlBody = "
Html Heading 3
This is underlined text"
' Add an attachment
msg.Attachments.Add(New Attachment("c:/check/image.jpg"))
' save it in local disk
Dim strMsg As String = "D:\ TestAspose.msg"
msg.Save(strMsg, MessageFormat.Msg)
Dim inboxElement As Microsoft.Office.Interop.Outlook.MailItem
inboxElement = app.Application.CreateItemFromTemplate("D:\ TestAspose.msg")
inboxElement.Move(inboxFolder)