Lotus Notes Einloggen per Makro (@Nepumuk)
18.08.2003 10:41:20
ANDY
habe ein Problem und Hoffe dass jemand von euch eine Ahnung davon hat. Ich versuche emails mit excel Anhang per Makro zu verschicken. Klappt wunderbar. Wie kann ich mich aber einloggen und Lotus per Excel starten? Bisher habe ich, auch Dank der Hilfe von Nepumuk welcher einer anderen Ratlosen Hilfestellung gab, folgenden Code.
Sub SendMeEmail()
Dim NutzerNotes As Object
Dim Notes As Object
Dim MailDokument As Object
Dim TextInMail As String, Anhang As String, Empfänger As String
Dim Text As Object
Const EMBED_ATTACHMENT = 1454
Empfänger = "AFeiner@metzler.com"
'Öffnen von Notes und einer neuen, leeren email
Set NutzerNotes = CreateObject("Notes.NotesSession")
Set Notes = NutzerNotes.GETDATABASE("", "")
Call Notes.OPENMAIL
Set MailDokument = Notes.CREATEDOCUMENT
Call MailDokument.ReplaceItemValue("SendTo", Empfänger)
Call MailDokument.ReplaceItemValue("Subject", "Sell Discipline vom: " & Date)
'Erstellen des Textes in der email
Set Text = MailDokument.CREATERICHTEXTITEM("Body")
TextInMail = "Bitte beachten Sie das berechnete MSDM" & vbCrLf & vbCrLf
Call Text.AppendText(TextInMail)
'Anhang anhängen
Anhang = "r:\Metzler\MSDM2.0.xls"
Call Text.EMBEDOBJECT(EMBED_ATTACHMENT, "", Anhang)
'Senden
MailDokument.SAVEMESSAGEONSEND = True
Call MailDokument.SEND(False, Empfänger)
Set NutzerNotes = Nothing
'MsgBox "Die heutige Sell Discipline wurde erfolgreich versendet!", vbOKOnly + vbInformation
End Sub
Viele Grüße
Andreas