Hallo an alle,

Habe bis jetzt bei Windows XP und Office 2000 meine Emails aus Access immer mit folgenden Code an Outlook übergeben.
---------------------------------
Public Function MailSenden(Adressat As String, CC As String, _
Subject As String, Body As String, Anhang As String, GleichSenden As Integer)

'Mitteilung aus Access direkt an Outlook, in den Postausgang übergeben

Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application

' Ein neue Outlook-Instanz und ein neues Mailitem erstellen
Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)

With myMail
' Den Empfänger der Mail festlegen
.To = Adressat
' Einen CC-Empfänger hinzufügen
.CC = CC
' Den Betreff der Mail festlegen
.Subject = Subject
' Text in die Mail einfügen
.Body = Body

If Anhang <> "" Then
' Ein Attachment aus dem Dateisystem anhängen
'.Attachments.Add "c:\path\to\a\file.dat"
.Attachments.Add Anhang
End If

' Die Email abschicken
If GleichSenden = 1 Then
.Send
ElseIf GleichSenden = 2 Then
.Display
End If

End With

Application.RefreshDatabaseWindow

' Die Outlook-Instanz beenden
myOutlApp.Quit

' Objektvariablen zerstören und Speicher freigeben
Set myMail = Nothing
Set myOutlApp = Nothing

End Function
--------------------------------------
Da ich nun aber mit Windows Vista arbeite funktioniert fast das ganze Office 2000 nicht mehr.
Würde gern den Code so abwandeln, das ich die Nachrichten an Windows Mail übergeben und verschicken kann. Geht das ???
Habe schon mehrere Versuche gestartet, aber bis jetzt hat jeder Codeumbau nur Fehlermeldungen verursacht.

Kann mir da jemand weiterhelfen ??

Vielen Dank schon mal im voraus.

Gruß spaceman