Open Outlook with Attachment

If you are referring to sending an e-mail with an attachment from Outlook, the following example will do that:

     $set ilusing"System.Net.Mail"
     $set ilusing"System.Net"
     $set ilusing"Microsoft.Office.Interop.Outlook"
      program-id. Program1 as "testemail.Program1".
      data division.
      working-storage section.
      01 oApp type Microsoft.Office.Interop.Outlook.ApplicationClass.
      01 omsg type Microsoft.Office.Interop.Outlook.MailItem.
      01 oAttach type Microsoft.Office.Interop.Outlook.Attachment.
      01 oRecips type Microsoft.Office.Interop.Outlook.Recipients.
      01 oRecip type Microsoft.Office.Interop.Outlook.Recipient.
      01 sDisplayName string.
      01 iPosition binary-long.
      01 iAttachType binary-long.
      procedure division.

          try
       *> Create the Outlook application.
             set oApp to new type Microsoft.Office.Interop.Outlook.ApplicationClass
       *> Create a new mail item.
             set oMsg to oApp::CreateItem(type
                Microsoft.Office.Interop.Outlook.OlItemType::olMailItem) as type Microsoft.Office.Interop.Outlook.MailItem
       *> Set HTMLBody.
       *> add the body of the email
             set oMsg::HTMLBody to "Hello, your message body will go here!!"
       *> Add an attachment.
             set sDisplayName to "MyAttachment"
             set iPosition to oMsg::Body::Length 1
             set iAttachType to type Microsoft.Office.Interop.Outlook.OlAttachmentType::olByValue
                as binary-long
       *> now attach the file
             set oAttach to oMsg::Attachments::Add("C:\\\\temp\\\\testfile.txt", iAttachType, iPosition, sDisplayName)
       *> Subject line
             set oMsg::Subject to "Your Subject will go here."
       *> Add a recipient.
             set oRecips to oMsg::Recipients
       *> Change the recipient in the next line if necessary.
             set oRecip to oRecips::Add(chris.glazier@microfocus.com)
             invoke oRecip::Resolve
       *> Send.
             invoke oMsg::Send
       *> Clean up.
             set oRecip to null
             set oRecips to null
             set oMsg to null
             set oApp to null
          catch ex as type System.Exception
             display ex::Message
          end-try
          goback.
      end program Program1.

Hi Chris,

Thanks for that, a couple of questions?

1) Will this work with any version of outlook a client has installed on their pc?

2) Does this code open Outlook, create email, send email, then close Outlook, all automatically?

Many thanks

Neil.

This sample uses the .NET Framework classes in microsoft.office.interop.outlook assembly.

You would need to add a reference to this assembly in your project.

This is documented as being supported for Outlook 2007 and 2010 and on my system I tested with Outlook 2010.

This uses the Outlook COM Server so Outlook does not have to be up and running in order for this to work.

The only suggestion that I can make is for you to test it on the required target systems to ensure compatibility with all.

Thanks.

Thanks Chris, is this project/code available to download any where?

I have just attached it here.

Please download emailwithattach.zip.

Hi Edwin,

There is a property called account which contains some fields that can be set including the smtp server name which can be found here but this example is for use with managed .NET COBOL as it references a .NET class. If you are using native COBOL then this will not work. Are you using native or managed .NET code?