1. #1
    Nouveau membre du Club
    Femme Profil pro
    Étudiant
    Inscrit en
    avril 2018
    Messages
    59
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : avril 2018
    Messages : 59
    Points : 29
    Points
    29

    Par défaut Comment changer format mail

    Bonjour,

    voilà ce que j'ai crée pour l'envoie de mail dans ma base de donnée :



    Nom : email.PNG
Affichages : 30
Taille : 36,0 Ko

    Mais quand je clique sur le bouton envoyer, cela génère le mail avec la mise en forme qui n'est pas top top ... Comment faire des retour à la ligne, des espaces, des sauts de lignes ?
    Nom : email2.PNG
Affichages : 22
Taille : 33,5 Ko

    Merci d'avance.

  2. #2
    Membre confirmé
    Inscrit en
    février 2011
    Messages
    374
    Détails du profil
    Informations forums :
    Inscription : février 2011
    Messages : 374
    Points : 457
    Points
    457

    Par défaut

    Bonjour,

    Voici un exemple d'envoi d'Email soit en texte simple soit en HTML.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    Function TestSendEmail()
    'This function sends the Email through the SMTP gateway (internet mail)
     
    Dim oMail As Object
    Dim oMailConfig As Object
    Dim strMail As String
     
    Set oMail = CreateObject("CDO.Message")
    Set oMailConfig = CreateObject("CDO.Configuration")
     
     
    oMail.from = "Moi.Meme@acme.com"
    oMail.to = "Vous.autres@ecole.edu"
    oMail.Subject = "Amusons-nous"
     
    'Voici un exemple simple.  Notez le vbCrLf pour aller à la ligne
    'strMail = "Bonjour," & vbCrLf & "A l'occasion de mon anniversaire, venez boire un verre d'eau !" & vbCrLf & "à bientôt"
    'oMail.Textbody = strMail
     
    'au lieu de ce texte simple, on peut utiliser HTML :
    strMail = "<HTML><BODY><body style=""background:#FFFFCC"">"
    'le texte :
    strMail = strMail & "<BR><span style=""color:#80BFFF"">C'est mon anniversaire."
    strMail = strMail & "<BR>Je vous invite à faire la <b>fête</b>"
    strMail = strMail & "</BR><font size=""6"">J'ai préparé les zakouskis et le champagne.</font>"
    '... et ainsi de suite avec toutes possibilités de HTML
    'terminer et fermer les tags
    strMail = strMail & "</BODY></HTML>"
     
    oMail.HTMLBody = strMail
     
     
    oMail.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "HQ-SMTP-T"
    oMail.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    oMail.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    oMail.configuration.Fields("http://schemas.microsoft.com/cdo/configuration/languagecode") = "FR"
    oMail.configuration.Fields.Update
     
    oMail.send
     
     
    Set oMailConfig = Nothing
    Set oMail = Nothing
     
     
    End Function

Discussions similaires

  1. Comment changer le format de DATE dans Oracle
    Par khanfir dans le forum Oracle
    Réponses: 3
    Dernier message: 20/04/2010, 19h55
  2. Réponses: 7
    Dernier message: 03/07/2007, 11h03
  3. [T-SQL] comment changer le format de l'ouput ?
    Par jm.alfonsi dans le forum Adaptive Server Enterprise
    Réponses: 3
    Dernier message: 05/03/2007, 11h05
  4. Comment changer le format d'un TIME dans EasyPHP
    Par brazilia28 dans le forum SQL Procédural
    Réponses: 6
    Dernier message: 08/12/2006, 17h31
  5. Comment changer la propriété du format du papier
    Par unix27 dans le forum Général JavaScript
    Réponses: 2
    Dernier message: 24/11/2006, 16h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo