Supportnet / Forum / Datenbanken

Hallo ich will auf Klick eine E-Mailadresse in einem Formular, das sich Outlook öffnet und die Adresse in eine neu Mail einfügt. Weiß irgendjemand dafür den Code und welche Bibliotheken brauche ich dafür? Vielen Dank

Public Sub Outlook_Mail(ADDRESS As String, Betreff As String, Text As String)

Dim olApp As Outlook.application
Dim oItem As Outlook.MailItem

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

With oItem 
      .To = ADDRESS          'Empfänger
      .Subject = Betreff     'Betreff
      .Body = Text           'Inhalt
      .ReadReceiptRequested = False
      .display               
End With

Fertig! An die Sub übergibst du einfach die benötigten Parameter aus deinem Formular. Wenns's eine leere Mail sein soll, lass 'Text' einfach leer.
Wenn du die Mail direkt verschicken willst, ohne sie vorher nochmal anzuzeigen, gib statt

.display

einfach

.send

ein.

Vielen Dank!

Cars10

Auf deine Frage per Email:

Wenn es immer dieselbe Datei ist, die du anhängen willst, ist das wirklich kein Problem:
Du fügst hinter

.body

einfach die Zeile

.Attachments.Add ("DATEIPFAD")

ein.

DoCmd.SendObject , , , Me!DeinTextfeld.Text, , , , , True

ist kürzer.

Schüssi!