PDA

Vollständige Version anzeigen : e-Mail Dialog


smeng
14.07.2004, 12:11
Hallo Zusammen,

wie ich aus Access eine Mial mit Anlage versende, ist mir bekannt. Der Nutzer soll alerdings noch die Möglichkeit erhalten seine persönliche Signatur und ein paar weitere Infos in dei Mail aufzunehmen. ich verwenden den folgenden Code um die Mail zu versenden. Allerdings ist es mir bisher nicht gelungen den Versand zu verhindern. kann mir jemand sagen, wie ich mit dem Code nur die vorgefüllte Mail auf den Bildschirm bekomme??

Danke & Gruß
Sascha

P.S.
Benutze Access XP

Function Mail_versenden()

Dim objSession As MAPI.Session
Dim objMessage As MAPI.Message
Dim objRecipient As MAPI.Recipient

Set objSession = New MAPI.Session

' Hier bitte den Profilnamen anpassen:
objSession.Logon , , False, False

' Neue Nachricht erzeugen
Set objMessage = objSession.Outbox.Messages.Add
With objMessage
.Subject = "Betreff"
.Text = "Text"
End With

'Anlagen anhängen
objMessage.Attachments.Add "1", , , "c:\dok1.doc"
objMessage.Attachments.Add "2", , , "c:\dok2.doc"

' Empfänger hinzufügen
Set objRecipient = objMessage.Recipients.Add

With objRecipient
.NAME = "Test.test@test.de"
.Resolve showdialog:=True
End With

' Nachricht senden:
objMessage.Send showdialog:=False

objSession.Logoff

Set objRecipient = Nothing
Set objMessage = Nothing
Set objSession = Nothing

End Function

J_Eilers
14.07.2004, 12:19
Hi,

'Nachricht senden:
objMessage.Send showdialog:=False

'Nachricht anzeigen
objMessage.Display

Thomas Braun
14.07.2004, 12:20
Probier mal statt:
' Nachricht senden:
objMessage.Send showdialog:=False

' Nachricht anzeigen
objMessage.Display

Debus
14.07.2004, 13:04
Hallo Sascha,

hab mal ne kleine Anwendung angehangen