|
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
|