Text an Mail anhängen

[Joker]

Hi,
hab da ein Problem. Habe mir ein Script erstellt, welches beim Versenden einer neuen Mail prüft, ob der Empfänger intern oder extern ist. Bei extern wird ein bestimmter Text an die Mail angehängt.
Das klappt alles sehr gut. Doch jetzt habe ich bemerkt, das der Text nicht angehängt wird, wenn man aus dem Adressbuch in der Ansicht Gruppen die Aktion "Memo Schreiben" ausführt.  Daraufhin steht nämlich der Name der Gruppe im Feld mit den Empfängern. Nun zieht natürlich mein Script nicht, welches anhand der Mailadressen prüft, ob es eine internen oder externen Mail ist.

Habe nun auch schon folgendes probiert:
Bisher führte ich das Script mit der Prüfung im Aktionsbutton senden aus. Habe es da mal rausgenommen und direkt in die ScriptBibliothek "CoreEmailClasses"  in den (Declarations) der NotesDatenbank an folgende Stelle gehängt:

Auszug aus dem Script:

Case MEMO_SEND

If Me.m_lngFlags And MEMO_ALWAYSPROMPT Then
Me.m_nSaveFlag = Messagebox (Me.m_objStringTable.getstring(MEMO_STRING+23,""), MB_YESNOCANCEL ,_
Me.m_objStringTable.getstring(MEMO_STRING+16,""))
            
If Me.m_nSaveFlag = IDCANCEL Then
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_REMOVE)
               Call SetActionInProgress(MEMO_ACTION_NONE)
continue = False
Exit Function
Else
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)
               

'hier wird meine Funktion zur Prüfung der Empfänge aufgerufen
revalue = Sicherheitstext(m_noteUIMemo,m_noteMemo)

               
Call Me.m_noteUIMemo.Send()
Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
If Me.m_nSaveFlag = IDYES Then
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
Else
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
End If
End If
Else         
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)

            
' hier auch
revalue = Sicherheitstext(m_noteUIMemo,m_noteMemo)

            
Call Me.m_noteUIMemo.Send()
Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
            
If Me.m_lngFlags And MEMO_ALWAYSSAVE Then
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
End If
If Me.m_lngFlags And MEMO_NEVERSAVE Then
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
End If         
End If      
         
Case MEMO_SEND_FILE
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_NO_FORCE_ACTION)
Call SetOptionField(ITEM_MAILOPTION,ITEM_REMOVE)


         
' hier auch
revalue = Sicherheitstext(m_noteUIMemo,m_noteMemo)

         
Call Me.m_noteUIMemo.Send()
Call SetOptionField(ITEM_MAILOPTION,ITEM_NO_FORCE_ACTION)
Call SetOptionField(ITEM_SAVEOPTIONS,ITEM_FORCE_ACTION)
Me.m_nCallFolderOp = True      


Script funktioniert genau wie vorher. Also bei den Gruppenmails wird der Text immer noch nicht angehängt. Ich weiß einfach nicht, wann die Empfänger im Klartext in dem Empfängerfeld stehen. Bei Mail, die man erhält, wenn man eine Mail welche an eine Gruppe gegangen ist, stehen die Empfänger ja auch drin

Vielleich kann mir ja jemand helfen

[Meff]

Wenn Du Gruppen aus dem Domino Directory verwendest, dann werden diese erst auf dem Server durch den Router aufgelöst, da aber der Script beim Versenden (also auf dem Client) ausgeführt wird, funktioniert das nur mit lokalen Gruppen.

Meff

[Joker]

Hi,
danke für deine Antwort.  Das das nur bei den lokalen Gruppen fuzt war mir schon klar, doch das ging ja auch. Hab das Problem jetzt lösen können. Die Lösung war, so banal es klingt, ein einfacher Refresh dann steht nicht mehr der Name der Gruppe, sondern die richtigen Empfänger im Empfängerfeld. Nach dem Refresh zieht auch mein Script wieder

Na ja, so einfach kann es sein.

Gruss
Martin