Envoi de mail

[clementbp]

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

[roubech]

pourquoi ces 2 lignes ?
MEMO_SEND:="1024";
FIELD ActionInProgress:=MEMO_SEND;
tu as récupéré ça dans le modèle de base mail ?

[clementbp]

Bonjour

Oui j'ai récupéré le code de l'action "Envoyer"

Mais cela ne fonctionne pas comme je voudrais

[clementbp]

Est ce que quelqu'un à une idée ???