MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.07.2004, 12:11   #1
smeng
MOF User
MOF User
Frage e-Mail Dialog

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
smeng ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.07.2004, 12:19   #2
J_Eilers
MOF Guru
MOF Guru
Standard

Hi,

Code:

'Nachricht senden:
objMessage.Send showdialog:=False

'Nachricht anzeigen
objMessage.Display

__________________

Bis denn dann
Jan


FAQ | relationale Datenbanken | Grundlagen | DBWIKI | Josef's Access Seite | Meine Homepage und Access | Abhängigkeiten | Suchen und Nachschlagen | Tab2Web |
SQL-Codes bitte formatieren und als Code posten. Danke!

Bitte keine Fragen als PN! Probleme gehören ins Forum und mit Feedback kann man sie auch lösen.
J_Eilers ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.07.2004, 12:20   #3
Thomas Braun
MOF Koryphäe
MOF Koryphäe
Standard

Probier mal statt:
' Nachricht senden:
objMessage.Send showdialog:=False

' Nachricht anzeigen
objMessage.Display

__________________

hth Thomas
Access-Profi-Pool
Thomas Braun ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.07.2004, 13:04   #4
Debus
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Sascha,

hab mal ne kleine Anwendung angehangen
Angehängte Dateien
Dateityp: zip mail.zip (16,9 KB, 23x aufgerufen)
Debus ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:58 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.