Automatische Email erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Lotti,
vielleicht hilft dir folgendes Überraschungsei?
Public


Function SendNotesMail(Subject As String, Attachment As String, Recipient As String, BodyText As String, SaveIt As Boolean)
Dim Maildb As Object 'Die Mail-Datenbank
Dim UserName As String 'Der Notes-Benutzername des SENDENDEN Users
Dim MailDbName As String 'Der Name der Maildatenbank des SENDENDEN Users
Dim MailDoc As Object 'Das Mail-Dokument selbst
Dim AttachME As Object 'Das Attachment-Richtextfile-Object
Dim Session As Object 'Die Notes-Session
Dim EmbedObj As Object 'Das Attachment
'Start a session to notes
Set Session = CreateObject("Notes.NotesSession")
'Get the sessions username and then calculate the mail file name
'You may or may not need this as for MailDBname with some systems you
'can pass an empty string
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
'Open the mail database in notes
Set Maildb = Session.GETDATABASE("", MailDbName)
If Maildb.IsOpen = True Then
'Already open for mail
Else
Maildb.OPENMAIL
End If
'Set up the new mail document
Set MailDoc = Maildb.CREATEDOCUMENT
MailDoc.form = "Memo"
MailDoc.sendto = Recipient
MailDoc.Subject = Subject
MailDoc.Body = BodyText
MailDoc.SAVEMESSAGEONSEND = SaveIt
'Set up the embedded object and attachment and attach it
If Attachment <> "" Then
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment")
MailDoc.CREATERICHTEXTITEM ("Attachment")
End If
'Send the document
MailDoc.PostedDate = Now() 'Gets the mail to appear in the sent items folder
MailDoc.SEND 0, Recipient
'Clean Up
Set Maildb = Nothing
Set MailDoc = Nothing
Set AttachME = Nothing
Set Session = Nothing
Set EmbedObj = Nothing
End Function

Der Aufruf erfolgt in folgender Form:
SendNotesMail("Betreff", "C:\MeinAnhang.xls", "Peter.Pan@Neverland.net", "Mailtext", True)
Gruß,
Alex.

Hallo Lotti,
könnte sein, dass ich mit ihm verwandt bin: der Mädchenname meiner Mutter ist der selbe wie sein Nachname, beide kommen aus der selben Gegend ;-) Mein Nachname lautet allerdings anders.
So, zu deinem Problem:
Die Funktion kopierst du einfach in ein (neues) Modul. Achtung: Das "Public" muß mit Leerzeichen getrennt vor dem "Function" stehen - ist beim reinkopieren was schiefgegangen.
Dann baust du dir eine neue "Sub" (oder eine Userform - wie auch immer du die Funktion aufrufen möchtest), z. B.


Sub rausdamit()
Dim dummy As Variant
dummy = SendNotesMail("Betreff", "C:\Anhang.xls", "Empfänger@Domain.de", "Mailtext", True)
End Sub

Um weitere Variablen als um die in der "rausdamit()" brauchst du dir keine Sorgen zu machen, das erledigt die Funktion. Die hier verwendeten Angaben sollten weitgehend selbsterklärend sein. Wenn du keinen Anhang mitsenden willst, dann ersetze diesen Wert durch "". Das "True" am Ende steuert, ob eine Kopie der Mail im Ordner "Gesendet"
abgelegt werden soll. Ist dies nicht erwünscht, so setze stattdessen ein "False".
Die Funktion versendet die Email automatisch mit der Absenderadresse desjenigen, der in Notes angemeldet ist (bzw. sich normalerweise anmeldet). Funktioniert auch, wenn gerade niemand angemeldet ist, dann ruft die Funktion Notes auf - das Notes-Passwort muß jedoch manuell eingegeben werden.
Lotus Notes gibt beim ersten mal eine Sicherheitsmeldung aus - klar, ein Programm, welches versucht über Notes Emails zu versenden könnte ja auch ein Virus sein.
Bestätige einfach, dass der Versand in diesem Fall ok geht und du hast Ruhe.
Probier's einfach mal aus und setze dich selbst als Empfänger ein.
Gruß,
Alex.

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread