E-Mail-Versand aus Excel funktioniert nicht mehr
17.01.2019 10:57:21
Gode
ich habe hier bei uns seit gestern folgendes Problem:
Wir haben einen Wechsel des Exchange-Servers auf 2016 vorgenommen.
Client am Rechner ist jedohc noch der "alte" Outlook 2010.
Wir haben einige Excel-Listen, die per VBA ein E-Mail im Ordner Entwürfe erstellen, das dann manuell vom Sachbearbeiter versendet wird.
Sub Mail_aufbereiten_mit_Anlage()
Dim objMailItem As Outlook.MailItem
Dim objMailOLApp As Outlook.Application
'On Error Resume Next
Set MyOutApp = GetObject(, "Outlook.Application")
Z = 4
Do Until Sheets("Details").Cells(Z, 1) = ""
If IsDate(Sheets("Details").Cells(Z, 22)) Then
emailtext = "Test"
' E-Mail aufbereiten
Set objMailOLApp = New Outlook.Application
Set objMailItem = MyOutApp.CreateItem(0)
MailAdr = Sheets("Details").Cells(Z, 24)
BelNr = Sheets("Details").Cells(Z, 4)
With objMailItem
.Subject = "Erinnerung Beanstandung " & BelNr & " --- 4D/8D-Report"
.Body = emailtext
.to = MailAdr
'objAttachments.Add strAnlage
.Save
End With
End If
Z = Z + 1
Loop
Set objMailItem = Nothing
Set objMailOLApp = Nothing
End Sub
Wir haben jetzt festgestellt, dass wenn man die Outlook-Eigenschaften der Mail-Adresse anschaut hierüber nur das Feld "angezeigter Name" gefüllt ist ... d.h. das Feld E-Mail-Adresse nicht:
Wahrscheinlich war hier der alte "Server" etwas toleranter und hat die Mail-Adresse aus dem Feld "angezeigter Name" übernommen oder ? ...
Gibt es hier im Excel eine Möglichkeit die Mail-Parameter noch genauer zu übergeben?
Vielen Dank im Voraus!
Gode
Anzeige