Domino 9 und frühere Versionen > ND7: Entwicklung

Warum wird hier ein Attachment mitgemailt?!

(1/2) > >>

ivan_hunkeler:

--- Code: ---Set db = session.CurrentDatabase
Set view = db.GetView( "OpenByNumber" )
Set doc = view.GetFirstDocument

While Not ( doc Is Nothing )

docdate = doc.GetItemValue(docvergleichsfeld(0))
docdatumwert = Today-docdate(0)
vergleichswert = docvergleichswert(0) -docdatumwert

If vergleichswert < 0  Then

teststr = docmailadresse(0)
delim = ","
ret = Split(teststr, delim) 'hier wird der "Feldinhalt" getrennt bei jedem Komma

For x = 0 To 20 'Max 21 Mailadressen können eingetragen werden
If ret(x) = "" Then
Exit Sub 'Programm wird abgebrochen
Else
doc.Form = "Memo"
doc.SendTo =ret(x)
doc.Subject = docmailsubject(0)
doc.Body = docmailbody(0)
Call doc.Send( False )'Mail wird verschickt

End If

Next  'For-schlaufe

Else 'gehört zur "If vergleichswert < 0 Then" Schlaufe
Set doc = view.GetNextDocument( doc )
End If

Wend
--- Ende Code ---

das ist der entscheidene CODE... und nun habe ich das Problem das automatisch ein Anhang mitgschickt wird, der in irgend einem Feld ist, wobei ich den niergends dazu füge zum Mail?!
kann man den einfach wieder löschen?
gibt es eine andere möglichkeit, was könnte die ursache sein das automatisch ein Attachment eingefügt wird?

botschi:
Warum sollte DAS der entscheidene Code sein?
Ist es eine Schaltfläche?
Ein HotSpot?
Ein Agent?
Wann läuft der Code?
Wer führt den Code aus?
Was für ein "Anhang"? Irgendeiner kann ja nicht sein.

Du glaubst doch nicht, dass jemand Dir helfen kann bei den wenigen Infos....

Matthias

Axel:
Du setzt in deinen Dokumenten, die du durchläufst das Form-Feld auf Memo, füllst noch ein paar Felder und versendest diese dann. Wahrscheinlich wird dadurch der Anhang mit versendet.

Du müsstest für die Mail neue Dokumente anlegen.


Axel

ivan_hunkeler:
sorry...ich versuche mich genauer zu fassen...

es ist ein Agent... ich poste ganz unten mein komplterer Code...

es ist ein Agent der schaut ob ein Dokument älter als x tag ist, das funktioniert auch alles einwandfrei. Nun habe ich gedacht das sei nun alles Tip Top, nun in der Praxis ist mir dann aufgefallen, falls in einem Dokument in irgend einem Richfeld eine Datei ist(egal welches format, egal wie sie heisst) wird sie als Anhang mitgemailt. ->Es Handelt sich hierbei um eine Helpdeskdatenbank...
der Agent sollte dann täglich ablaufen.


--- Code: ---Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim db_werte As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Dim docwert As NotesDocument
Dim docmailadresse As Variant
Dim mailadresse As Variant
Dim docmailsubject As Variant
Dim docmailbody As Variant
Dim mailbox As New NotesDatabase("","")
Dim docdate As Variant
Dim docdatumwert As Variant
Dim docvergleichswert As Variant
Dim docvergleichsfeld As Variant
Dim vergleichswert As Variant
Dim ret As Variant
Dim teststr As String
Dim delim As String

On Error Resume Next

'********************************************************************
' Werte auslesen aus Konfiguration "SYSTEMPARAMETER - DO NOT DELETE !!!!!"
'********************************************************************

Set db_werte = session.CurrentDatabase
Set view = db_werte.GetView("($LUConfig)")
Set docwert = view.GetDocumentByKey("AGENTALARMMAILADRESSE") 'Email Adresse wird hier ausgelesen
docmailadresse = docwert.GetItemValue("cfgKeywords")

Set docwert = view.GetDocumentByKey("AGENTALARMMAILDAUER") 'Anzahl Tage, die das Dok. alt sein darf wird hier ausgelesen
docvergleichswert = docwert.GetItemValue("cfgKeywords")

Set docwert = view.GetDocumentByKey("AGENTALARMMAILFELD") 'Feldname vom "VergleichsFeld" wird ausgelesen
docvergleichsfeld = docwert.GetItemValue("cfgKeywords")
' Messagebox(docvergleichsfeld(0))

Set docwert = view.GetDocumentByKey("AGENTALARMMAILSUBJECT") 'Mailsubject wird ausgelesen
docmailsubject = docwert.GetItemValue("cfgKeywords")

Set docwert = view.GetDocumentByKey("AGENTALARMMAILBody") 'Mailbodywird ausgelesen
docmailbody = docwert.GetItemValue("cfgKeywords")

'********************************************************************
' ENDE - Werte auslesen aus Konfiguration
'********************************************************************

Set db = session.CurrentDatabase
Set view = db.GetView( "OpenByNumber" )
Set doc = view.GetFirstDocument

While Not ( doc Is Nothing )

docdate = doc.GetItemValue(docvergleichsfeld(0))
docdatumwert = Today-docdate(0)
vergleichswert = docvergleichswert(0) -docdatumwert

If vergleichswert < 0  Then

teststr = docmailadresse(0)
delim = ","
ret = Split(teststr, delim) 'hier wird der "Feldinhalt" getrennt bei jedem Komma

For x = 0 To 20 'Max 21 Mailadressen können eingetragen werden
If ret(x) = "" Then
Exit Sub 'Programm wird abgebrochen
Else
doc.Form = "Memo"
doc.SendTo =ret(x)
doc.Subject = docmailsubject(0)
doc.Body = docmailbody(0)
Call doc.Send( False )'Mail wird verschickt

End If

Next  'For-schlaufe

Else 'gehört zur "If vergleichswert < 0 Then" Schlaufe
Set doc = view.GetNextDocument( doc )
End If

Wend

End Sub
--- Ende Code ---

klaussal:
Also ich versteh imer noch nur "Bahnhof".  :-:   Was willst Du eigentlich  ?

Navigation

[0] Themen-Index

[#] Nächste Seite