Supportnet / Forum / Datenbanken

Hallo ! Ich verwende Access um Daten aus einer DB zu laden. Mit diesen Daten wir ein Bericht gefuellt und dieser dann ausgedruckt. Nun moechte ich nach Beendigung des Berichtes diesen auch per Mail verschicken. Dabei sollen die E-Mail Adressen in einer DB-Tabelle vorhanden sein und nicht ueber Outlook (Adressbuch) geladen werden. Hat jemand Erfahrung damit ? Gruesse Ralf

Hallo Ralf,

schau in der Hilfe mal unter der

SendObject-Methode

nach.

Gruss
Mick

Werd' ich machen.
Danke Mick
Gruss
Ralf

Probier das mal,
Hab's aus meien Routinen zusammen kopiert, aus Zeitgründen nicht getestet!!
Weiterhin würde ich den Bericht in ein PDF-File drucken und dann als Attachment verschicken.


Gruß

Andreas

sub test-senden()
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
dim att as string
dim Betreff as string
dim nachricht as string
dim empf as string
dim EMailEdit as string
EMailEdit = "yes"
empf = "andreas.voss@de.nordosn.com"
Betreff = "Betreff"
Nachricht = "Bla Bla Bla"
Att = "C:\temp\beispiel.doc"
senden
end sub
Sub senden()
' Create the Outlook session.
Set objOutlook = CreateObject("Outlook.Application")
' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(Empf)
objOutlookRecip.Type = olTo
.Subject = Betreff
.Body = Nachricht 'Richtext-Format
'.ScriptText = Nachricht
If ATT <> "" Then
Set objOutlookAttach = .Attachments.Add(ATT)
End If
' Nachricht vor dem Senden anzeigen?
If EMailEdit = "yes" Then
.Display
Else
.Send
End If
End With
Set objOutlook = Nothing
End Sub