IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[VB6]Envoi de page html dans un courriel


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Avril 2003
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Avril 2003
    Messages : 19
    Par défaut [VB6]Envoi de page html dans un courriel
    Bonjour

    - J'ai une page HTML sur un serveur distant.
    - J'ai des images aussi sur le serveur.

    J'aimerais pouvoir envoyer ma page HTML par courriel en code VB6. J'utilise Outlook comme messagerie.

    J'ai configurer Outlook en mode HTML

    Ce que j'ai essayer jusqu'ici qui n'a pas fonctionner ;

    - J'ai écris le code HTML dans le message du courriel(je vois seulement le texte)
    - J'ai placer en pièces jointes la page HTLM (je ne la vois pas directement ds le message ...)

    Alors, avez-vous d'autres idées pour pouvoir faire automatiquement comme dans Explorer ;
    Fichier - Envoyer - Page de courrier électronique.

    P.S en code j'ouvre deja Outlook, je place le courriel, le sujet, donc pas de problemes de ce coter !

    Merci a tous !

  2. #2
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour

    j'espere que cet exemple pourra t'aider

    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
    Sub envoirPageHTML_CorpsMessageOutlook()
    'Necessite d'Activer la reference Microsoft Outlook xx.x Object Library
    Dim OlApp As New Outlook.Application
    Dim OlItem As Outlook.MailItem
    Dim S As String
    'necessite d'Activer la reference Microsoft Internet Controls
    Dim IE As InternetExplorer
     
    Set IE = CreateObject("InternetExplorer.Application")
     
    With IE
        .Visible = False
        .Navigate "http://www.developpez.com"
        Do Until .ReadyState = READYSTATE_COMPLETE
        DoEvents
        Loop 'attend la fin du chargement
    End With
     
    S = IE.document.documentElement.innerHTML
    DoEvents
     
    IE.Quit
    Set IE = Nothing
     
    Set OlItem = OlApp.CreateItem(olMailItem)
     
    With OlItem
        .To = "destinataire@mail.fr"
        .Subject = "le titre"
        .HTMLBody = S
        .Display
        .Save
        .Send
    End With
     
    End Sub

    bonne soiree
    michel

  3. #3
    Expert confirmé
    Avatar de ThierryAIM
    Homme Profil pro
    Inscrit en
    Septembre 2002
    Messages
    3 673
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2002
    Messages : 3 673
    Par défaut
    Hormis qu'il manque peut-être
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Private Const READYSTATE_COMPLETE=&H4


  4. #4
    Expert confirmé

    Homme Profil pro
    Inscrit en
    Août 2005
    Messages
    3 317
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2005
    Messages : 3 317
    Par défaut
    bonjour Thierry

    pour ma part, j'active la reference "Microsoft Outlook xx.x Object Library"
    et dans ce cas la déclaration de la constante n'est pas necessaire ...;o)


    bonne soiree
    michel

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Avril 2003
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Avril 2003
    Messages : 19
    Par défaut
    Wow merci !

    Tout fonctionne a merveille !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Envoi par mail d'une page html (dans corps de texte)
    Par Lili120 dans le forum Général Conception Web
    Réponses: 6
    Dernier message: 04/02/2011, 09h08
  2. [VB6] Inserer une page Html dans VB
    Par Menthe_a_l_eau dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 23/03/2006, 11h26
  3. [VB6] Ecrire une page html
    Par eagleleader dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 24/11/2005, 18h34
  4. [vb.net][html] afficher une page html dans une interface vb?
    Par graphicsxp dans le forum Windows Forms
    Réponses: 1
    Dernier message: 29/09/2005, 17h31
  5. inclure une page html dans une autre
    Par jani dans le forum Balisage (X)HTML et validation W3C
    Réponses: 4
    Dernier message: 10/08/2005, 19h28

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