Tipps und Tricks für Lotus Notes Benutzer. Senden Sie Ihre Lotus Notes Fragen mit der Angabe Ihrer verwendeten Notes Version an: info@lotus-tipps.de *

Regelmäßiger Datei Versand per Lotus

Kader Yurdakadim  20 October 2015 13:38:51
Sie schreiben täglich E-Mails die sich lediglich an einzelnen Stellen unterscheiden?
Dann ersparen Sie sich die Arbeit und erstellen Sie ganz einfach eine Vorlage, die Sie kurz noch überarbeiten und absenden können.

Mit etwas Programmiergeschick lässt sich eine Aktion erstellen, die auf Knopfdruck die E-Mail erstellt, sich die Datei aus dem Filesystem
holt und versendet. (Ausreichende Berechtigung vorausgesetzt!)

Code:

Function SendAutoMail(Subject As String, SendTo As Variant, CopyTo As Variant, BlindCopyTo As Variant,
Text As Variant, FilePath As String) As Integer
     
      Dim session As New NotesSession
      Dim mail         As NotesDocument                
      Dim rtitem         As NotesRichTextItem

      Set mail = session.CurrentDatabase.CreateDocument
      mail.Form = "Memo"
      mail.Subject = Subject
      mail.CopyTo = CopyTo
      mail.BlindCopyTo = BlindCopyTo
     
      Set rtitem = mail.CreateRichTextItem("Body")

      ' Mail-Inhalt aufbauen
      Call rtitem.AddNewLine(1)
      rtitem.AppendText(Text)
      Call rtitem.AddNewLine(2)
     
      ' Attachment anfügen
      Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", FilePath)
     
      Call mail.Send(False, SendTo)
      Set mail = Nothing
     
End Function
     
Call SendAutoMail("[Mail-Subject]", "[Empfänger-Adresse]", "[CopyTo]", "[BlindCopyTo]", "[Mail-Text]", "C:\Test.txt")
Comments
Noch keine Kommentare vorhanden