Eintragen einer BCC-Adresse in der Memo-Maske

[Detlef]

Hallo,

ich verzweifel gerade an einer kleinen Erweiterung der Memo-Maske aus der Mail-DB.
Folgendes Problem:
Ich möchte abhängig vom Thema eine BCC-Adresse im
Querysend einfügen. Mit dem folgendem Scrip sehe ich die Adresse im gesendeten Memo, aber sie kommt nicht an.

***************************************
Dim doc As NotesDocument
Dim EMail As String
Set doc = source.Document   
EMail = ", hans@glueck.de"

Dim send As Integer

'geht die Mail an einen bestimmten Adressbereich adresse? wenn ja dann wird nichts angehangen!
Forall an In doc.SendTo
  If Abfrage Then
    send = 1
  End If
End Forall
If send > 0 Then
  Call source.Fieldappendtext("BlindCopyTo",EMail)
  Call source.Fieldappendtext("EnterBlindCopyTo",EMail)
  Call source.Refresh()
End If
***********************************

Kann mir jemand weiterhelfen?

PS: Notes 6

Gruß
Detlef

[Glombi]

Lass das

  Call source.Fieldappendtext("BlindCopyTo",EMail)

mal weg, da das Feld nicht sichtbar ist.
Es reicht, wenn Du im UI-Dokument das Feld EnterBlindCopyTo setzt.

Andreas

[Detlef]

Auch das hilft nicht wirklich. Die Adresse steht anschließen zwar im BCC Feld, es wurde aber keine Mail an BCC gesendet. Sende ich das Memo erneut, geht alles klar.

Komisch finde ich auch, das dieses Ereigniss 2x durchlaufen wird?!?

Detlef

[Glombi]

Ok, wir bewegen uns im QuerySend, das hatte ich glatt übersehen. Ausserdem wird Source.Refresh aufgerufen, was wieder PostRecalc aufruft.

Du musst das ganze dann im Backend machen, da im QuerySend UI-Manipulation offenbar zu spät ist.

Dim doc As NotesDocument
dim item_enterbcc as NotesItem
dim item_bcc as NotesItem
Dim EMail As String
Set doc = source.Document  
EMail = "hans@glueck.de"           '!!! Achtung ÄNDERUNG !!!

Dim send As Integer

'geht die Mail an einen bestimmten Adressbereich adresse? wenn ja dann wird nichts angehangen!
Forall an In doc.SendTo
  If Abfrage Then
    send = 1
  End If
End Forall
If send > 0 Then
 set item_enterbcc = doc.GetFirstItem("EnterBlindCopyTo")
 set item_bcc = doc.GetFirstItem("BlindCopyTo")
 call item_enterbcc.AppendToTextList(EMail)
 call item_bcc.AppendToTextList(EMail)
 call source.Reload     '? evtl. nicht nötig  -> ausprobieren
End If


Andreas

[Detlef]

Und wieder der gleiche Effekt. Es steht drin, wurde aber nicht gesendet :-(((((

Gehe ich in das gesendete Memo und löschen den Eintrag aus dem BCC und sende es erneut, kommt es an. Die EMail-Adr wird dann aber 2* eingetragen. Es muß also noch ein berechnetes Feld o.ä. irgendwo stecken.

Detlef

[Detlef]

Kann ich das Script besser in einem Anderem Ereigniss ablegen?

Detlef

[Glombi]

Wahrscheinlich ist QuerySave besser geeignet.

[Detlef]

OK Q-Save ist wohl besser.

Jetzt klappt es. Nur warum nicht im QSend??

Danke für die Infos

Detlef