Einen wunderschönen guten Tag,
habe hier ein Problem das so einfach ist, dass ich bestimmt Gelächter ernte. Folgendes ich habe einen Agenten geschrieben, der mir einmal am Tag ne Mail schickt wie viele Mails in einem bestimmten Ordner liegen. So wiet alles klar. Das funktioniert auch alles super , es sei denn ich will ein Subject haben, dann verschickt er die Mail nicht. Warum :-:
Set memo = dbthis.CreateDocument
Set rtItem = New NotesRichTextItem(memo, "Body")
text = "Sie haben " + Cstr(quantity) + " Mail in ihrem '" + Cstr(FolderView.Name) + "'-Ordner, bitte räumen sie auf"
Call rtItem.AppendText(text)
Call memo.ReplaceItemValue("Subject",subject)
Call memo.ReplaceItemValue("Form","Memo")
Call memo.ReplaceItemValue("sendTo",recipient)
Call memo.Send(False)
wenn der Cod so ausschaut ist alles super :
Set memo = dbthis.CreateDocument
Set rtItem = New NotesRichTextItem(memo, "Body")
text = "Sie haben " + Cstr(quantity) + " Mail in ihrem '" + Cstr(FolderView.Name) + "'-Ordner, bitte räumen sie auf"
Call rtItem.AppendText(text)
'Call memo.ReplaceItemValue("Subject",subject)
Call memo.ReplaceItemValue("Form","Memo")
Call memo.ReplaceItemValue("sendTo",recipient)
Call memo.Send(False)
Will nicht in meinen Kopf . ???
Habe es Deklariert und habe auch Option Declare benutzt , wollte nur nicht den ganzen Code posten, aber vllt ist es besser so
Options :
Option Public
Option Declare
Declaration :
Dim dbThis As NotesDatabase
Dim FolderView As NotesView
Dim spamCollection As NotesDocumentCollection
Dim spam As NotesDocument
Dim memo As NotesDocument
Dim rtItem As NotesRichTextItem
Dim quantity As Double
Dim subject As String
Dim recipient As String
Dim folderName As String
Initialize :
Dim s As New NotesSession
Dim text As String
quantity = 0
subject = "Ihre tägliche Spamübersicht"
recipient = "men@work.de"
folderName = "Alt"
Set dbThis = s.CurrentDatabase
Set FolderView = dbTHis.GetView(folderName)
Set spam = FolderView.GetFirstDocument
If Not spam Is Nothing Then quantity = 1
While Not spam Is Nothing
Set spam = FolderView.GetNextDocument(spam)
quantity = quantity + 1
Wend
If quantity <> 0 Then
Set memo = dbthis.CreateDocument
Set rtItem = New NotesRichTextItem(memo, "Body")
text = "Sie haben " + Cstr(quantity) + " Mail in ihrem '" + Cstr(FolderView.Name) + "'-Ordner, bitte räumen sie auf"
Call rtItem.AppendText(text)
'Call memo.ReplaceItemValue("Subject",subject)
'memo.Subject = subject
Call memo.ReplaceItemValue("Form","Memo")
Call memo.ReplaceItemValue("sendTo",recipient)
Call memo.Send(False)
End If