Mail aus Backend versenden

[bikerboy]

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 

Code

		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 :

Code

		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 . 

[m3]

"subject" solltes Du wo deklarieren und einen Wert zuweisen ("Option Declare" ist Dein Freund).

[klaussal]

Muss das nicht

Call memo.ReplaceItemValue("Subject",text) heissen ?   

[bikerboy]

Habe es Deklariert und habe auch Option Declare benutzt , wollte nur nicht den ganzen Code posten, aber vllt ist es besser so

Options :

Code

Option Public
Option Declare

Declaration :

Code

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 :

Code

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

[m3]

Besser

a) "Mail wird nicht versendet" - Fehlermeldung, mail.box Inhalt, genauere Beschreibung des "Fehlers"?

b) Was sagt der Debugger?

[bikerboy]

Debugger meckert nicht, die Felder werden auch gesetzt, eigentlich alles toll, aber er will nicht.

[bikerboy]

MUUHAAAHHHAAA,

schei..... Spamfilter..... Der Code rennt, Fehler in Layer 8.