Outlook - Win 10 BPv6 - Send E-Mails from Shared Mailbox code Problem

AndreKöpplin — Fri, 20 Sep 2019 06:51:00 GMT

Hi All

We are using an code to sent out E-Mails to our colleagues in Blue Prism, which were written on Win 7 and we used a shared Mailbox Address to sent out them. After the Migration to Win 10, the code is working, but not give us the Output, if the E-Mail was sent out and secondly, the code is using the primary account (user MailAddress) instead of the Mail Address of the shared Mailbox. I adjust several times, the code, but it isn't working.

Dim oApp As Microsoft.Office.Interop.Outlook._Application
oApp = New Microsoft.Office.Interop.Outlook.Application
Dim myItem As Microsoft.Office.Interop.Outlook.MailItem

try
myItem = oApp.CreateItemFromTemplate(templatePath)
myItem. From = mailFrom
myItem.To = mailAddress
myItem.Subject = myItem.Subject _
 .Replace("<Name>", firstName) _
 .Replace("<Surname>", lastName)
myItem.HTMLBody = myItem.HTMLBody _
 .Replace( _
 "Ms. X / Mr. Y", firstLine) _
 .Replace( _
 "Sehr geehrte Frau X / Sehr geehrter Herr Y", firstLine) _
 .Replace( _
 "Madame , / Monsieur,", firstLine) _
 .Replace( _
 "Gentile signora X / Egregio signor Y", firstLine)

If(itMailInside.Length > 1)
 myItem.HTMLBody = myItem.HTMLBody _
 .Replace( _
 "tenuta / tenuto", itMailInside)
End If

myItem.Send()
mailSent = True
mailSent = False
If myItem Is Nothing
Else
 myItem.Close(Microsoft.Office.Interop.Outlook.OlInspectorClose.olDiscard)
End If
Catch ex as Exception

End try

Thanks for your support
BR
Andre

------------------------------
Andre Koepplin
Senior Business Process Analyst
Wroclaw/Poland
------------------------------

topic Outlook - Win 10 BPv6 - Send E-Mails from Shared Mailbox code Problem in Product Forum

Outlook - Win 10 BPv6 - Send E-Mails from Shared Mailbox code Problem