Envoi de mail
Bonjour
J'ai créé une action qui récupère le mail selectionné et le transfère à la personne qui est selectionnée dans une boite de dialogue.
Ensuite, je veux archiver ce mail en le déplaçant dans un dossier portant le nom de la personne.
Voici mon code :
VariableEnvoyerA:=@PickList([Custom]:[Single]; VarServerDB : "" ; "vCBPPersonne" ; "Choissez à qui vous voulez transférer ce mail"; "" ; 4 );
ValeurChampsSubject:=@GetField("Subject");
VariableSubject:=@MiddleBack(ValeurChampsSubject;"a reçu un ";100);
@Command([ComposeWithReference];"":"";"Memo");
@Command( [EditGotoField] ; "Subject" );
@Command([EditInsertText];VariableSubject);
@Command( [EditGotoField] ; "EnterSendTo" );
@Command([EditInsertText];VariableEnvoyerA);
@Command([FileSave]);
MEMO_SEND:="1024";
FIELD ActionInProgress:=MEMO_SEND;
@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(""));
@Command( [Folder] ; VariableEnvoyerA ; "1" )
L'action fonctionne par contre à chaque fois il y a le message en piece jointe qui apparait et je suis obligé de cliquer sur "Envoyer et enregistrer" pour que le mail parte et que le reste de mon code s'exécute.
Auriez vous une idée pour shunter cette boite de dialogue ?
Merci de votre aide
J'ai créé une action qui récupère le mail selectionné et le transfère à la personne qui est selectionnée dans une boite de dialogue.
Ensuite, je veux archiver ce mail en le déplaçant dans un dossier portant le nom de la personne.
Voici mon code :
VariableEnvoyerA:=@PickList([Custom]:[Single]; VarServerDB : "" ; "vCBPPersonne" ; "Choissez à qui vous voulez transférer ce mail"; "" ; 4 );
ValeurChampsSubject:=@GetField("Subject");
VariableSubject:=@MiddleBack(ValeurChampsSubject;"a reçu un ";100);
@Command([ComposeWithReference];"":"";"Memo");
@Command( [EditGotoField] ; "Subject" );
@Command([EditInsertText];VariableSubject);
@Command( [EditGotoField] ; "EnterSendTo" );
@Command([EditInsertText];VariableEnvoyerA);
@Command([FileSave]);
MEMO_SEND:="1024";
FIELD ActionInProgress:=MEMO_SEND;
@If(@Command([FileSave]);@Command([FileCloseWindow]);@Return(""));
@Command( [Folder] ; VariableEnvoyerA ; "1" )
L'action fonctionne par contre à chaque fois il y a le message en piece jointe qui apparait et je suis obligé de cliquer sur "Envoyer et enregistrer" pour que le mail parte et que le reste de mon code s'exécute.
Auriez vous une idée pour shunter cette boite de dialogue ?
Merci de votre aide