1. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

WB Envoi Email

Discussion dans 'Webdev' créé par sdeuss, Oct 1, 2025.

  1. sdeuss

    sdeuss New Member

    Inscrit:
    Juil 7, 2025
    Messages:
    6
    J'aime reçus:
    0
    Bonjour à tous,
    Il y a encore quelque mois le code ci-dessous fonctionné :
    [windev]
    monCompteur = gCompteur("COMMANDE",1)

    gEmailUser,gEmailMDP,gEmailSMTP, gEmailPORT sont des chaîne

    gEmailUser = "

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    "
    gEmailMDP = "MDP"
    gEmailSMTP = "OVH.NET"
    gEmailPORT = "587"

    maConnexionEmail est un entier = EmailOuvreSessionSMTP(gEmailUser,gEmailMDP,gEmailSMTP,gEmailPORT, Faux, emailOptionSécuriséTLS)

    SI PAS maConnexionEmail ALORS
    Erreur("Impossible d'ouvrir la session SMTP.", ErreurInfo())
    SINON
    EmailRAZ()
    Email.AdresseExpéditeur = "<"+gEmailUser+">"
    Email.Expéditeur = "<"+gEmailUser+">"
    Email.NbDestinataire = 1
    Email.Destinataire="<"+gEmailUser+">"
    FIN

    Email.Sujet = "Sujet"
    Email.Message = "Message"

    SI PAS EmailEnvoieMessage(gEmailUser) ALORS
    Erreur("Impossible de transmettre la commande",ErreurInfo(errMessage))
    FIN

    EmailFermeSession(gEmailUser)
    FIN
    [/windev]
    Mais voila que celui ci ne fonctionne plus.
    Je suis en version webdev 21 et je voudrais trouver une solution sans devoir opter pour une migration vers une autre version plus récente.
    Merci d'avance de votre aide.
     
    Tags:
  2. lonsdale_75

    lonsdale_75 New Member

    Inscrit:
    Juin 29, 2024
    Messages:
    8
    J'aime reçus:
    0
    bonjour, ceci marche très bien et a adapté pour toi, tu passes en direct.

    Email.AdresseExpéditeur = "

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    "
    Email.Expéditeur = "

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    "
    Email.NbDestinataire = 1
    Email.Destinataire[1] = SAI_Email_mail
    Email.Sujet = "Accusé de reception"
    Email.Message = SAI_Societe_mail + RC + ...
    SAI_Nom_Prenom_mail + RC + ...
    SAI_Adresse_mail + RC + ...
    SAI_Telephone_mail + RC + ...
    SAI_Email_mail + RC + ...
    SAI_Demande_mail + RC + ...
    "Merci de votre demande, si dessus un récapitulatif de votre mail." + RC +
    "Nous allons répondre a votre mail, dès connaissance de celui-ci."

    // Envoi du message
    EmailEnvoieMessage()
     
  3. sdeuss

    sdeuss New Member

    Inscrit:
    Juil 7, 2025
    Messages:
    6
    J'aime reçus:
    0
    Salut

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!


    Je te remercie pour ta réponse, je testerais cela en fin de semaine.
     

Partager cette page

Chargement...