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

VBScript Discussion :

Importer un fichier .txt dans le corp d'un mail


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Inscrit en
    Juillet 2012
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Juillet 2012
    Messages : 2
    Par défaut Importer un fichier .txt dans le corp d'un mail
    Bonjour à tous, et désolé si la question a déjà été soulevée !

    Je souhaiterais créer un .vbs permettant d'envoyer par mail et toujours à la même adresse le contenu d'un fichier.txt

    J'ai déjà trouvé comme base :

    Code Visual Basic :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    With CreateObject("CDO.Message")
    .From="mail@mail.com"
    .To="mail@mail.com"
    .Subject="SUJET"
    .TextBody=MON FICHIER TXT A IMPORTER !
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.1"
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Configuration.Fields.Update
    On Error Resume Next
    .Send
    If Err Then MsgBox "Le message n'a pas pu être expédié."
    On Error GoTo 0
    End With


    Merci par avance !

  2. #2
    Candidat au Club
    Inscrit en
    Juillet 2012
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Juillet 2012
    Messages : 2
    Par défaut
    Résolu !

    Si ça peut aider quelqu'un :

    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
    Const ForReading = 1
    Const TemplateFile = "fichier.txt"
     
    With CreateObject("CDO.Message")
    .From="mail@mail.com"
    .To="mail@mail.com"
    .Subject="Infos Utilisateur"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.OpenTextFile(TemplateFile, ForReading)
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxx.xxx.xxx.xxx"
    .Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    .Configuration.Fields.Update
    .TextBody = f.ReadAll
    f.close
    Set f = Nothing
    set fso = Nothing
    On Error Resume Next
    .Send
    If Err Then MsgBox "Le message n'a pas pu être expédié."
    On Error GoTo 0
    End With

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

Discussions similaires

  1. [MySQL] importation de fichier txt dans mysql
    Par runcafre91 dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 20/12/2009, 12h51
  2. importer un fichier txt dans excel
    Par rm34000 dans le forum Excel
    Réponses: 2
    Dernier message: 03/09/2007, 09h12
  3. importer un fichier .txt dans une table
    Par caracas dans le forum Administration
    Réponses: 2
    Dernier message: 31/07/2007, 21h19
  4. Réponses: 8
    Dernier message: 28/12/2006, 14h18
  5. .bat pour l'import de fichier txt dans postgres
    Par pseudomh dans le forum PostgreSQL
    Réponses: 1
    Dernier message: 25/03/2005, 00h02

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