Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Lotus Noes
Autor: LennysProject
Datum: 19.09.07 14:34
Hallo Leute, habe ein kleines Problem: Ich habe eine VB6 exe geschrieben, die den Standardmailclient aufruft. Für Microsoft Outlook und Thunderbird geht alles. Nun soll es aber auf für Lotus Notes funktionieren. Dabei soll eigentlich das gleiche wie bei einem mailto passieren. Also Lotes wird geöffnet man gibt das Passwort ein und danach sieht man die erstellte mail und kann noch Änderungen vornehmen bevor man sie dann endgültig verschickt. Was ich bisher hinbekommen habe ist, das eine mail erstellt wird. Leider weiß ich nicht wie ich diese mail anzeigen lassen kann ohne das sie gleich verschickt wird. Hoffe ihr habt eine Idee oder Lösung So in der Art sieht mein Programm aus: Public Sub SendNotesMail(Subject As String, Recipient As String, BodyText As String, SaveIt As Boolean) 'Variablen Dimensionieren, die benötigt werden, um das Mail zu senden Dim Maildb As Object 'Die Datenbank Dim UserName As String 'Der Benutzername Dim MailDbName As String 'Der Datenbankname Dim MailDoc As Object 'Das Maildokument selbst Dim AttachME As Object 'Der Anhang (Richtext) Dim Session As Object 'Die Notes Session Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang) Set Session = CreateObject("Notes.NotesSession") Set Maildb = Session.GETDATABASE("", MailDbName) If Maildb.isOpen = True Then 'Fertig zum mailen! Else Maildb.OPENMAIL End If 'Ein neues Maildokument erstellen Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" MailDoc.sendto = Recipient MailDoc.Subject = Subject MailDoc.body = BodyText MailDoc.SAVEMESSAGEONSEND = SaveIt Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1") 'Lotus öffnen Dim Workspace As Object Set Workspace = CreateObject("Notes.NotesUIWorkspace") Call Workspace.EditDocument(True, MailDoc).GotoField("Body") 'Aufräumen Set Maildb = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set Session = Nothing Set EmbedObj = Nothing End Sub Private Sub Command1_Click() SendNotesMail Text1, Text3, Text4, Check1 End Sub Danke im voraus

Lotus Noes	1.348	LennysProject	19.09.07 14:34
Re: Lotus Noes	989	Disaster	03.10.07 15:15
Re: Lotus Noes	1.011	coly	09.10.07 11:30

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen