PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV, WEBDEV e WINDEV Mobile

|
|
|
FR
Inicio → WINDEV 2024 → Re: Email.NbDestinataire+Email.NbCC
Re: Email.NbDestinataire+Email.NbCC
Iniciado por aclweb, jul., 25 2005 12:14 PM - Sem resposta
#1
Publicado em julho, 25 2005 - 12:14 PM
Bonjour, j'ai le même problème et je ne voie ce qui ne va pas dans le code :

// ***********************************************************************************************************
PROCEDURE Envoi_Mail_MS_Exchange(pDestinataire,pSujet,pMessage,pNbAttache=0,pAttache="",pLancer=Faux,pNbBcc=0,pBcci="")

wDestinataire est une chaîne = pDestinataire
wSujet est une chaîne = pSujet
wMessage est une chaîne = pMessage
wNbAttache est un entier = Min(10,pNbAttache)
wLancer est un booléen = pLancer
wNbBcci est un entier = Min(200,pNbBcc)

wIdEMail,wi sont des entiers
wRes est un booléen

wSavRep est une chaîne


// Sauvegarde du répertoire en cours
wSavRep = fRepEnCours()

// Ouvre session
wIdEMail = EmailOuvreSession("")
SI wIdEMail <= 0 ALORS
Erreur(EmailMsgErreur(Email.erreur))
RETOUR
FIN

// Destinataire
Email.NbDestinataire = 1
Email.Destinataire[1] = wDestinataire

// Sujet
Email.Sujet = wSujet

// Corps du message
Email.Message = wMessage

// Pièce jointe
Email.NbAttache = wNbAttache
POUR wi = 1 A wNbAttache
Email.Attache[wi] = pAttache[wi]
FIN

// Autres Destinataires
Email.NbCci = wNbBcci
POUR wi = 1 A wNbBcci
Email.Cci[wi] = pBcci[wi]
FIN

// Prépare le message
wRes = EmailEnvoieMessage(wIdEMail)
SI PAS wRes ALORS
Erreur(EmailMsgErreur(Email.erreur))
FIN

// Envoyer le message
SI wRes ET wLancer ALORS
EmailMiseAJour(wIdEMail)
FIN

// Fin de session
EmailFermeSession(wIdEMail)

// Restauration du répertoire en cours
fRepEnCours(wSavRep)

***********************************************************************************************************

-> Rien à faire, aucun des destinataires mis en copie ou copie cachée n'est dans le mail :(

si vous avez une piste, n'hésitez pas !

A bientôt,

Pascal
→ Voltar para WINDEV 2024