Hello,

i have a problem sending emails using port 587 with port 25 it is working fine.

port 587 is open.

the script what I use is:

Sub SendEmailBijlage()
'Dit script maakt gebruik van Microsoft Collaboration Data Objects: https://docs.microsoft.com/en-us/previous-versions/office/developer/exchange-server-2003/ms872853(v=exchg.65)
Dim strFrom
Dim strTo
Dim strSub
Dim strBody
Dim strSMTP
Dim objEmail

strFrom = SmartTags("Email_Afzender")
strTo = SmartTags("Email_Ontvanger")
strSub = SmartTags("Email_SendMail_2uur_Email_Subject")&" " & Now()
strBody = SmartTags("Email_Text 1")& " " &SmartTags("Email_Text 2")& " " &SmartTags("Email_Text 3")& " " &SmartTags("Email_Text 4")
strSMTP = "smtp.office365.com"'

Set objEmail = CreateObject("CDO.Message")

objEmail.From = strFrom
objEmail.To = strTo
objEmail.Subject = strSub
objEmail.Textbody = strBody

'objEmail.AddAttachment ("C:\logs\Actueel PPM (ASL)_2uur0.csv")

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 

objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 '0 = anonymous, 1 = basic, 2 = NTLM
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "datalogger@customer.onmicrosoft.com"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objEmail.Configuration.Fields.Update
objEmail.Send

End Sub

this problem is solved,

it looks like we can't send an email with the VB functions in siemens

so we made a Windows PowerShell script and call this with a VB Script 

$EmailTo = "Email TO"
$EmailFrom = "Email From"
$Subject = "Test mail"
$Body = "Test mail"
$SMTPServer = "smtp.office365.com"
$filenameAndPath = "C:\tmp\test.txt"
$SMTPMessage = New-Object System.Net.Mail.MailMessage($EmailFrom,$EmailTo,$Subject,$Body)
$attachment = New-Object System.Net.Mail.Attachment($filenameAndPath)
$SMTPMessage.Attachments.Add($attachment)
$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587)
$SMTPClient.EnableSsl = $true
$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("Log in", "Password");
$SMTPClient.Send($SMTPMessage)