Infor Visual- Change an email Macro from OUTLOOK to SMTL mail

hanssimo01

I am not sure of the proper structure to change this over to smtp email. The Outlook code works, but we use a remote server to access Visual when not in the office, and I am not allowed to put Outlook on the remote server. Does anyone know how to do this?

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

objMail.Display 'To display message

objMail.Recipients.Add (Emailadd2)

objMail.Subject = EmailSubj

objMail.Body = EmailBody

'objMail.Attachments.Add \\application\Visual\VMX\Purch_ORDER_MACRO.vmx 'Make sure attachment exists at given path. Then uncomment this line. objMail.Send 'I intentionally commented this line

'objOutlook.Quit

Set objMail = Nothing

Set objOutlook = Nothing

Would like to change it to SMTP mail server:

smtprelay.corp.com

port: 25no ssl

no username

no password

from xxxxx@xxxxxxxxxxxx .com

hanssimo01

UPDATED- I finally found the correct format on line for the smtp email. Issue resolved

set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
Set Flds = objConfig.Fields

Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtp.domain.com"

Flds.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") =""
Flds.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") =""

Flds.update
Set objMessage.Configuration = objConfig
objMessage.To = "username@domain .com"

objMessage.From = "username@domain .com"
objMessage.Subject = EmailSubj
objMessage.fields.update
objMessage.HTMLBody = emailBody
objMessage.Send