Hallo,
ich habe eine Access Datenbank aus der heraus ich per VBA diverse Mails erzeuge.
Das hat bisher auch einwandfrei funktioniert.
Nun wurden wir auf eine andere Domäne migriert und plötzlich werden die Adressaten nicht mehr erkannt.
Wie üblich bei uns geben wir Nachname, Vorname bei internenn Adressaten an.
Ich kann aus einer solchen Mail heraus auch nicht in den Kontakten suchen, dann bekomme ich die Fehlermeldung, das keine Verbindung zum Exchange Server besteht.
Wenn ich von Hand eine Mail generiere, ist alles OK.
Weiterhin kann ich keine neuen Reglen erstellen, da bekomme ich die Fehlermeldung das ich nicht genügend Arbeitsspeicher oder Systemressourcen habe, auch dann, wenn so gut wie keine andere Applikation geöffnet ist und das System hat 32 GB Hauptspeicher.
Auf der Festplatte sind noch 47GB frei.
Hier noch der VBA-Code, mit dem die Mails generiert werden:
Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application
Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)
With myMail
.To = MailTo
.CC = MailCC
.BCC = MailBCC
If ATT <> "" Then
ATT_prepareInfoMail:
AnzATT = Len(ATT) - Len(Replace(ATT, ";", ""))
For i = 0 To AnzATT - 1
CurrATT = Trim(Left(ATT, InStr(ATT, ";") - 1))
ATT = Mid(ATT, InStr(ATT, ";") + 1)
.Attachments.Add CurrATT
Next i
End If
NoATT_prepareInfoMail:
.Subject = Subj
.HTMLBody = MailNachricht
If InStr(M_Param, "Send") > 0 Then
.Send
Else
.Display
End If
End With
Exit_prepareInfoMail:
Set myMail = Nothing
Set myOutlApp = Nothing
Exit Sub
