Aus Excel vba
Mit dem folgenden Code kann man in Windows 7,8, 10 aus Excel heraus in Lotus Notes Emails versenden.
Dabei muss man nur noch den Text, den Email-Verteiler und eventuell Dateianhänge mit angeben
'<< Email_senden >> Email_senden_mit_Lotus_Email sEmail_Verteiler, sSubject, sText, sDatei '<</ Email_senden >> |
Option Explicit
Public Sub Email_senden_mit_Lotus_Email(ByVal sEmpfaenger As String, ByVal sSubject As String, ByVal sBodyText As String, ByVal sAttachement As String) '-----------------< send_Lotus_Email() >----------------- '< Korrektur > ' sBodyText = Replace(sBodyText, vbCrLf, "vbcrlf", , , vbBinaryCompare) ' sBodyText = Replace(sBodyText, vbLf, "vblf", , , vbBinaryCompare) ' sBodyText = Replace(sBodyText, vbCr, "vbcr", , , vbBinaryCompare) ' sBodyText = Replace(sBodyText, vbNewLine, "vbnewline", , , vbBinaryCompare) ' sBodyText = Replace(sBodyText, Chr$(13), "13", , , vbBinaryCompare) ' sBodyText = Replace(sBodyText, Chr$(10), "10", , , vbBinaryCompare) ' sBodyText = Replace(sBodyText, Chr$(7), "7", , , vbBinaryCompare) '</ Korrektur >
'--< Mail_Anwendung_starten >-- 'Die Session starten Dim Session As Object 'Die Notes Session Set Session = CreateObject("Notes.NotesSession") 'Den Benutzernamen auslesen und den Dateinamen 'der MailDB errechnen 'Dies wird nicht überall benötigt. Auf manchen 'Systemen kann auch ein leerer String übergeben werden Dim UserName As String 'Der Benutzername UserName = Session.UserName
Dim MailDbName As String 'Oeffnen Lotus Mail. Beim Oeffnen muss Email-Kennwort eingegeben werden MailDbName = "mail\saog.nsf" '</ Mail_Anwendung_starten >
'Datenbank öffnen Dim Maildb As Object 'Die Datenbank Set Maildb = Session.GETDATABASE("", MailDbName) If Maildb.IsOpen = False Then Maildb.OPENMAIL End If '----</ Mail_Anwendung_starten >----
'----< Mail_Document_erstellen >-- -- 'Ein neues Maildokument erstellen Dim MailDoc As Object Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" MailDoc.sendto = sEmpfaenger MailDoc.Subject = sSubject MailDoc.body = sBodyText MailDoc.SAVEMESSAGEONSEND = True
'< Anhang_anfuegen > '*Eingebettete Objekte und Anhänge hinzufügen Dim objAttachment Dim objEmbedded If sAttachement <> "" Then Set objAttachment = MailDoc.CREATERICHTEXTITEM("Attachment") Set objEmbedded = objAttachment.EMBEDOBJECT(1454, "", sAttachement, "Attachment") End If '</ Anhang_anfuegen >
'< Email_in_App_einfuegen > Dim Workspace As Object Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE") Call Workspace.editdocument(True, MailDoc).GOTOFIELD("Body") '</ Email_in_App_einfuegen > '< Abschluss > Set Maildb = Nothing Set MailDoc = Nothing Set objAttachment = Nothing Set Session = Nothing Set objEmbedded = Nothing '</ Abschluss > '-----------------</ send_Lotus_Email() >----------------- End Sub
|