Hallo Markus,

ich kann dir zwar keinen konkrete Lösung anbieten, aber es dürfte sicherlich wichtig sein zu wissen, dass David bei der Installation die MAPI32.DLL im Windows\System-Ordner durch eine eigene Version ersetzt, die die eigenen Bedürfnisse erfüllt. Ich vermute, dass hat auch was mit der Einrichtung von David als Standard-Client zu tun. Von der Originaldatei müsste aber automatisch eine Sicherheitskopie (mapi32.dll.bak?) angelegt worden sein. Du könntest versuchsweise die beiden Dateien mal austauschen und sehen, was passiert.

Es sei noch anzumerken, dass die David-eigene mapi32.dll eine Quelle von Schwierigkeiten mit sich bringen kann. So musste ich z.B. schon erleben, dass ActiveSync sich nicht installieren, geschweige denn betrieben werden kann. Außerdem dürfte bei einem Anschluss an einen Windows Server 2003 das Ausführen der ClientApps fehlschlagen.

Gruß
erik

Hallo Erik;

Danke für deine Empfehlung.
Werde es sogleich versuchen umzusetzen.

sobald ich ein Ergebnis habe werde ich es hier posten!

Grüße
Markus

Zur Info

wie versprochen (auch wenn´s ein wenig spät ist)

Es funktioniert so leider nicht.

Bin aber weiterhin auf der Suche nach einer Lösung und sobald ich diese habe werde ich Bescheid geben.

Hi Markus

sicher unschön und ehrlich gesagt fallen mir auch nur 2 Sachen dazu ein:

1. Durchforste deine Registry nach dem Eintrag für's Standard-Mail-Programm und ändere den Eintrag um.
Das solltest du DA finden!

HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail

im Schlüssel "Standard"

2. Mails von Access nach Outlook funktionieren wunderbar per VBA und dem Outlook-Application - Objekt.

Um ZB eine Excel - Mappe zu versenden setzt man dann so einen Code ein:


Sub Excel_Sheet_via_Outlook_Senden()
Dim Nachricht As Object, OutApp As Object
Dim SavePath As String
Dim AWS As String
SavePath = "E:\Eigene Dateien"
Set OutApp = CreateObject("Outlook.Application")
'Kopiert aktuelles Sheet in eine neue Mappe
'welche nur diese Tabelle enthält
ActiveSheet.Copy
'Speichert die Datei unter dem Tabellennamen und dem Namen in A1
ActiveWorkbook.SaveAs SavePath & "\" & ActiveSheet.Name & " " & ActiveSheet.Range("A1")
'Aktive Arbeitsmappe wird als mail gesendet
AWS = ActiveWorkbook.FullName
'InitializeOutlook = True
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = "irgendwer@Irgenwo.de"
.Subject = "Testmeldung von Excel2000 " & Date & Time
.Attachments.Add AWS
'Hier wird eine normale Text Mail erstellt
'.body = "Das ist ein Test" & vbCrLf & "Bitte ignorieren"
'Hier wird die HTML Mail erstellt
.HTMLBody = "Das ist ein Test." & vbCrLf & "Bitte ignorieren."
'Hier wird die Mail nochmals angezeigt
.Display
'Hier wird die Mail gleich in den Postausgang gelegt
'.Send
'Hier könnte die Datei wieder gelöscht werden
'Kill AWS
End With
OutApp.Quit
Set OutApp = Nothing
Set Nachricht = Nothing
End Sub


Gefunden bei http://www.office.gmxhome.de/_excel_outlook.htm#EXCEL%20Tabelle%20m...

Nicht vergessen Outlook im Objektkatalog per Verweis zu hinterlegen... :-))

Gruß leo