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
***********************************
Die Adresse steht anschließen zwar im BCC Feld des gesendeten Memos, es wurde aber keine Mail an BCC gesendet. Sende ich das Memo erneut, klappt es. Wo ist die Adresse noch einzutragen?
Kann mir jemand weiterhelfen?
PS: Notes 6
Gruß
Detlef