Emails an mehrere Adressen via Outlook versenden

jan99 · 17. März 2020, 12:43

Moin!

bisher habe ich mit folgendem Code immer eine E-Mail in Outlook generieren lassen - hat geklappt.

Public Sub OpenOutlook(BetreffZeile As String, Body As String, _AdressenEmail As String, Optional SendCC As Boolean = False)
Dim objOutlook As Object
Dim objOutlookMsg As Object
Const olMailItem = 0
'Const olBCC = 3
Const olImportanceHigh = 1
Const olCC = 2
Const olTo = 1
Dim HowToAdress As Integer = olTo
If SendCC = True Then HowToAdress = olCC
Try
objOutlook = CreateObject("Outlook.Application")
objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Dim objOutlookRecip As Object = .Recipients.Add(_AdressenEmail)
objOutlookRecip.type = HowToAdress
.Subject = BetreffZeile
.Body = Body
.Importance = olImportanceHigh
.Display() ' use .send() to send
End With
objOutlookMsg = Nothing
objOutlook = Nothing
Catch ex As Exception
XMsgBox.ShowDialog("Leider ist ein Fehler bei der Erstellung der Email aufgetreten!" & vbCrLf & ex.ToString & vbCrLf &
"EMail:=" & _AdressenEmail & Environment.NewLine &
"Betreff:=" & BetreffZeile, _k_AppName, XMsgBoxButtons.OK, XMsgBoxIcon.Critical)
End Try
End Sub

Nun wollte ich das auf mehrere ausweiten und als Parameter eine List Of String übergeben. Angepasst habe ich folgenden Bereich:

Aber das funktioniert nicht - besser gesagt es wird der Abschnitt

angemerkt.

Kann mir einer weiterhelfen?

Gruß Jan

*Topic verschoben*

VaporiZed · 17. März 2020, 22:01

Zeile#2: Dim objOutlookRecip As Object: Object hat keine Property vom Typ type. Von welchem Typ ist objOutlookRecip tatsächlich?

dive26 · 21. März 2020, 12:43

Ich stand auch vor dem Problem und habe mir folgende Sub dafür geschrieben:

''' <summary>
''' Versendet eine Email mit Microsoft Outlook
''' Option Stict muss leider "OFF" bleiben wegen später Bindung
''' </summary>
''' <param name="an"></param>
''' <param name="cc"></param>
''' <param name="bcc"></param>
''' <param name="betreff"></param>
''' <param name="inhalt">Inhalt in Textform - Zeilenumbrüche werden automatisch durch BR ersetzt</param>
''' <param name="anhang">Stringarray mit Pfad- und Dateinamen</param>
Public Sub NeueEmailMitOutlookVersenden(an As String, cc As String, bcc As String, betreff As String, inhalt As String, anhang() As String)
Try
Dim outlookapi As Object
Dim outlookItem As Object
outlookapi = CreateObject("Outlook.application")
outlookItem = outlookapi.createitem(0)
With outlookItem
.Subject = betreff
.To = an
.cc = cc
.bcc = bcc
If inhalt <> "" Then .HTMLbody = inhalt.Replace(vbCrLf, "<br>")
For i As Integer = 1 To 9
If anhang(i) <> "" Then .Attachments.Add(anhang(i))
Next
.display
End With
outlookapi = Nothing
outlookItem = Nothing
Catch ex As Exception
MessageBox.Show("Es scheint kein kompatibler Outlook Mailclient auf Ihrem Computer installiert zu sein.", "Microsoft Outlook nicht gefunden", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try
End Sub