Domino 9 und frühere Versionen > ND6: Entwicklung

Mail aus Backend versenden

(1/2) > >>

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)

--- Ende Code ---

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)

--- Ende Code ---

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

--- Ende Code ---


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

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

m3:
Besser :)

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

b) Was sagt der Debugger?

Navigation

[0] Themen-Index

[#] Nächste Seite