Bonjour je suis novice sur webdev
je developpe une application sur webdev et j aimerais envoyer par mail mon
etat que je genere apres validation
voici mon code
iDestination(iPDFGénérique)
iImprimeEtat(ETAT_teste)
FichierAffiche(iDernierFichier(),"application/pdf")
sObj,sMsg,sDest,sCc1,sCc2 sont des chaînes
sDest="johnston.bouka@bollore.com"
sObj="Demande de Consommable"
sMsg="Bonjour Veillez confirmer la demande jointe a ce mail merci"
sText est une chaîne = ""
// Ouverture d'une session SMTP sécurisée TLS
,,,,,,"I1PNREXC02.gc.dti.bollore"
MaSession est un EmailSessionSMTP
MaSession..AdresseServeur = "10.92.2.32"
SI EmailOuvreSession(MaSession) = Faux ALORS
sText = "Impossible d'ouvrir la session SMTP."+ErreurInfo()
FIN
// Add a file into the attachments of an email
MonMessage est un Email
//EmailLoadAttachment(MonMessage, ...
//SysDir(srMyDocuments) + ["\"] + ETAT_teste)
//// Envoi d'un message
//// Construction d'un email
MonMessage..Expediteur = "hotline.support@bollore.com"
MonMessage..Sujet = sObj
MonMessage..Priorité = emailPrioritéHaute
//Email.Attache[1]=ETAT_teste
Ajoute(MonMessage..Cc,sCc1)
Ajoute(MonMessage..Cc,sCc2)
Ajoute(MonMessage..Destinataire,sDest)
//MyMessage is Email
EmailLoadAttachment(MonMessage, ...
SysDir(srMyDocuments) + ETAT_teste)
Email.NbAttache = 1
Email.Attache = ETAT_teste
MonMessage..Message = sMsg
u est un booléen = EmailEnvoieMessage(MaSession, MonMessage)
SI u=Faux ALORS
sText = ErreurInfo(errRésumé)
SINON
sText = "sent"
FIN
---
Cet email a fait l'objet d'une analyse antivirus par AVG.
http://www.avg.com