Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Lotus_Notes-Mail
Autor: evil_uwe
Datum: 28.08.03 13:07
Hallo zusammen, ich habe ein PM geschreiben, welches Mails über Lotus Notes versendet. Klappt auch alles wunderbar, doch nun gibt es ein Problem: Ich habe eine Notes-Admin-ID, mit der ich die Mail versenden möchte. Geht auch, solange sich jemand bereits mit der ID in Notes angemeldet hat. Wenn Notes noch nicht gestartet ist, kann ich zwar über CreateObject eine Notes-Session starten, doch dann komme ich bei der Passwortabfrage nicht weiter. Nun meine Frage: kennt jemand einen Weg, bei den ich Notes starten und gleichzeitig das Passwort mitgeben kann??? Hab es bisher so gelöst: Public Function SendNotesMail(sTo As String, sCC As String, sBCC As String, _ sSubject As String, sBody As String, sNotesServer As String, sMailFile As String) '** On Error GoTo MFE '** Dim oSession As Object Dim oDB As Object Dim oDoc As Object Dim oBody As Object '** Set oSession = CreateObject("Notes.NotesSession") Set oDB = oSession.GetDatabase(sNotesServer, sMailFile) Set oDoc = oDB.CreateDocument oDoc.Form = "Memo" Set oBody = oDoc.CreateRichTextItem("Body") oDoc.Subject = sSubject oDoc.SendTo = Array(sTo) oDoc.CopyTo = Array(sCC) oDoc.BlindCopyTo = Array(sBCC) Call oBody.Appendtext(sBody) oDoc.ReturnReciept = True oDoc.SaveMessageOnSend = False Call oDoc.Send(False) ', oDoc.SendTo) Set oBody = Nothing Set oDoc = Nothing Set oDB = Nothing Set oSession = Nothing '** Exit Function '** MFE: MsgBox "Bei der Mailerstellung ist ein Fehler aufgetreten. " & _ "Es konnte keine Mail erstellt werden.", vbCritical, "Fehler bei Mailgenerierung" Error = True '** End Function Danke und Gruß Uwe

Lotus_Notes-Mail

593

evil_uwe

28.08.03 13:07

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