Supportnet / Forum / Datenbanken

Hallo! Ich habe eine kleine Kontakdatenbank, die u.a. auch die Emaiadresse des Kontakts aufnimmt. Über einen Button hätte ich jetzt gerne entabliert, dass sich ein Emailfenster meines Standart-emailclient öffnet und die eingetragenen Emailadresse des Kontakts als Empfänger eingetragen wird. Über eine Befehlsschaltfläche und der Eigenschaft "Hyperlink Adresse" kann man den Empfänger manuel festlegen. Diesen Schritt möchte ich mir aber sparen, zumal die Adresse bereits erfasst wurde. Weiss jemand Rat? Viele Grüße, Draighton

Servus,

diesen Code habe ich vor längerer Zeit mal hier im Forum gefunden und leicht verändert, funzt aber ganz prima. In diesem Fall ist es natürlich auf MS Outlook angepasst ....

 
Private Sub cmdMailtoButton_Click()

Dim olApp As Outlook.Application
Dim oItem As Outlook.MailItem

Set olApp = New Outlook.Application
Set oItem = olApp.CreateItem(olMailItem)

With oItem
.To = Me!Emailadresse
.Subject = "Betreff" ´oder Me!BEtreff oder auskommentieren ...
.Body = "..." ´oder Me!Message ...
´.Send       versendet ohne das eMail vorher anzuzeigen
.Display    ´füllt das eMail aus und zeigt es an; Versand über "Senden"-Button
End With

End Sub

Hoffe Dir hilft das ein wenig ...

Gruß
Klaus

Hallo Klaus,

danke erst Mal für die Anregung.
Ein entsprechendes Emailfenster wir geöffnet, aber leider werden die Daten wie .TO, .Subject etc. nicht eingesetzt.

Ich habe im VB-Code den entsprechenden Verweis "Microsoft Outlook 11 Object Libary" aktiviert.

An dieser Stelle sollte ich erwähnen, dass ich mit Access 2000 und Outlook 2003 arbeite. Könnte es sein, dass man da eventuell eine andere Syntax verwenden muss?

Viele Grüße,

Daniel.

• sammel-email an personen in access-datenbank
• Frage zu T-online 6,0 - kann keine eMail mehr verschicken
• Warum sendet Outlook 2003 meine Email über mein Standadkonto, obwohl ich das 2. Konto auswähle?
• Email mit Anhang verschicken