PDA

Vollständige Version anzeigen : eMailen aus Access


Marco Rosenberger
10.08.2001, 07:58
Ich habe mit Access eine Adressverwaltung erstellt. Jetzt möchte ich direkt aus Access auch Emails versenden können. Wer weiss wie das geht?

stewie
10.08.2001, 08:16
So:

Dim outlApp As Outlook.Application
Dim outlMessage As Outlook.MailItem

'Variablen für die Übergabe
Dim Empf 'An:
Dim CC 'CC:
Dim BCC 'BCC:
Dim Betreff 'Subject
Dim Nachricht 'Body
Dim ATT 'Dateipfad zum Attachment

Sub Mail()

Empf = "stewie01@gmx.de"
Betreff = "Test"
Nachricht = "Hallo! Dies ist eine Testmail"

' Create the Outlook session.
Set outlApp = CreateObject("Outlook.Application")
Set outlMessage = outlApp.CreateItem(olMailItem)

outlMessage.Recipients.Add (Empf)
outlMessage.Subject = Betreff
outlMessage.Body = Nachricht
outlMessage.Importance = olImportanceHigh

outlMessage.Display

Set outlApp = Nothing

End Sub


Die Mail Addi kannst Du natürlich auch aus einer Tabelle holen oder aus dem Outlook Kontakten.

Grüße,

Stewie

Rasputin
10.08.2001, 08:27
Hi!
Versuche es mit folgender Prozedur:

Private Sub Form_Open(Cancel As Integer)
Dim strAdresse As String
strAdresse = "mailto: " & Me![E-Mail]
BezFeld.Hyperlink.Address = strAdresse
BezFeld.Hyperlink.SubAddress = strAdresse
End Sub

Erstelle ein Bezeichnungsfeld mit dem Namen BezFeld oder wie auch immer, dann bitte in der Prozedur entsprechend ändern.
E-Mail kannst Du dann auch mit dem Feldnamen, in dem die E-Mail-Adresse gespeichert ist, ersetzen...
Hoffe, es hilft...
Gruß,
Raz