Hallo,
Habe ein Problem.
Ich habe ein Programm geschrieben, daß automatisch E-Mails verschickt. Dazu benutze ich das MAPI.
Bei Outlook 97 geht das ohne Probleme.
Bei Outlook 2002 bekomme ich eine Fehlermeldung und es geht nicht.
Gibt es da ne neue MAPI dafür, oder muß man bei 2002 etwas beachten.
Danke
Thomas
Ich würde grundsätzlich das Outlook Library verwenden!!! Der Befehlssatz ist bei 97/2k/2002 gleich.
~stefan.
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke
Hab das gleich Probiert.
Schaffe aber dennoch kein Massenmail.
Nach einer Mail tut das Prog keinen Muks mehr.
Kannst du mir vielleicht helfen.
Hier der Code den ich verwendet hab.
Dim olApp As Object
Dim oItem As Object
Dim fso As New FileSystemObject
Set rs = db.OpenRecordset(„Select * from Empfaenger“)
Do While rs.EOF = False
If fso.FileExists(„c:\Export“ + CStr(rs(„Datei“)) + „.xls“) Then
Set olApp = CreateObject(„Outlook.Application“)
Set oItem = olApp.CreateItem(0)
With oItem
.Subject = „Datei Export“
.to = rs(„EmailAdresse“)
.Body = „Als Anlage erhalten Sie die ihre Datei“
.Attachments.Add „c:\Export“ + CStr(rs(„Datei“)) + „.xls“
.Send
End With
End If
rs.MoveNext
Loop
Gruß
Thomas
probiere mal das xls zu zippen, da vielleicht sicherheitsroutinen in outlook ein problem mit excel haben. sonst baue mal ein DoEvents nach dem Send ein.
~stefan
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]