Macros that connect to office 365

unknown

Anyone been able to email via office 365 exchange servers with macros?

Find more posts tagged with

VISUAL - Enterprise General Discussions

Comments

unknown

Getting ready to upgrade to Visual 9 and this has been requested. So, I'm interested to hear the response too.

Here is a macro for creating an outlook email and attaching a file:

Dim OutApp
Dim OutMail
Dim strbody

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "Hi there" & vbNewLine & vbNewLine & _
"This is my email macro testing." & vbNewLine & _
"Thanks," & vbNewLine & _
"Joe User"

On Error Resume Next
With OutMail
.To = "me@someplace.com"
.CC = "you@someplace.com"
.BCC = ""
.Subject = "Testing Email Macro"
.Body = strbody
'You can add a file like this
.Attachments.Add ("C:
eport_tmpsample.pdf")
'.Send 'or use
.Display
End With

Set OutMail = Nothing
Set OutApp = Nothing

unknown

Not saying it can't be done but we use a local smtp server to avoid having to deal with O365 when it comes to Visual integration.

' -- HTML Email sent over Office 365 SMTP --

Dim objMessage, objConfig, Fields

Set objMessage = CreateObject("CDO.Message")

Set objConfig = CreateObject("CDO.Configuration")

strbody = "Hi there,<BR>" & _

"This is my email macro testing.<BR>" & _

"Thanks,<BR>" & _

"Joe User"

Set Fields = objConfig.Fields

With Fields

.Item ("schemas.microsoft.com/.../sendusing") = 2

.Item ("schemas.microsoft.com/.../smtpserver") = "smtp.office365.com"

.Item ("schemas.microsoft.com/.../smtpserverport") = 25

.Item ("schemas.microsoft.com/.../smtpauthenticate") = 1

.Item ("schemas.microsoft.com/.../sendusername") = "ServerAlerts@mydomain.com"

.Item ("schemas.microsoft.com/.../sendpassword") = "PasswordForYourDedicatedSendAccount"

'.Item("schemas.microsoft.com/.../sendtls") = True

.Item("schemas.microsoft.com/.../smtpusessl") = True

.Update

End With

Set objMessage.Configuration = objConfig

With objMessage

.Subject = "Test Message"

.From = """Server Alerts"" <ServerAlerts@mydomain.com>"

.To = "myemailaddress@mydomain.com"

.HTMLBody = strbody

.AddAttachment "C:
eport_tmpsample.pdf"

On Error Resume Next

objMessage.Send

End With

Ford GTL.pdf

Copyright © 2025 Infor. All rights reserved.