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 :

Envoi mail avec vbs


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Chercheur en informatique
    Inscrit en
    Juin 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Chercheur en informatique

    Informations forums :
    Inscription : Juin 2017
    Messages : 9
    Par défaut Envoi mail avec vbs
    Bonjour,
    je voudrai un script vbs qui récupère chaque ligne de mon fichier ,l'incorpore dans le body du mail et procède à l'envoi.
    en pièce jointe le fichier.
    Le corps du mail devra reprendre les données d'une ligne et se présentera comme suit:
    ********
    Ci dessous les détails du fichier
    Code:<valeur dans le fichier> Operateur:<valeur dans le fichier>
    Numéro:<valeur dans le fichier> Montant:<valeur dans le fichier>
    NID:<valeur dans le fichier> Nom:<valeur dans le fichier>
    DATE:<valeur dans le fichier> HEURE:<valeur dans le fichier>
    Fichiers attachés Fichiers attachés

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    Juillet 2009
    Messages
    2 420
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : Juillet 2009
    Messages : 2 420
    Par défaut
    Salut et BIENVENU sur DVP

    Pour l'envoi d'un mail voir cette Discussion.

    Pour la mise en forme du fichier à envoyer, tu dois lire le fichier texte contenant les données à formater ligne par ligne et faire un Split sur chaque ligne lue avec comme délimiteur le caractère | (barre verticale)et place les données là où il est nécessaire.
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA) et Ne jamais typer variables et/ou fonctions en VBS.
    Vous pouvez consulter mes contributions
    Ne pas oublier de consulter les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr

  3. #3
    Membre régulier
    Homme Profil pro
    Chercheur en informatique
    Inscrit en
    Juin 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Chercheur en informatique

    Informations forums :
    Inscription : Juin 2017
    Messages : 9
    Par défaut
    Merci pour ce retour pourrai je avoir un exemple sur comment réaliser le split ligne par ligne sachant que j'ai un pipe comme délimiteur.Et aussi comment récupérer chaque ligne dans le body du mail

  4. #4
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 130
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 130
    Par défaut
    Salut
    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
    Function LectureFichier(CheminNomFichier, QuelNumligne, QuelNumcolonne)
        Const ForReading = 1
        Dim objFSO, Contenu, TblLigne, TblColonne
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        If objFSO.FileExists(CheminNomFichier) Then
            Contenu = objFSO.OpenTextFile(CheminNomFichier, ForReading).ReadAll
            Set objFSO = Nothing
            TblLigne = split(Contenu,vbnewline)
            LectureFichier = split(TblLigne(QuelNumligne),"|")(QuelNumcolonne)
        End If
    End Function
     
    Dim ChemNomFich
    ChemNomFich = "C:\Provisoir\monfichier.txt"
    MsgBox LectureFichier(ChemNomFich, 2, 5), vbInformation, "Mot recuperé"
    le MsgBox donne pour résultat: BILL KERN
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  5. #5
    Membre régulier
    Homme Profil pro
    Chercheur en informatique
    Inscrit en
    Juin 2017
    Messages
    9
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Sénégal

    Informations professionnelles :
    Activité : Chercheur en informatique

    Informations forums :
    Inscription : Juin 2017
    Messages : 9
    Par défaut
    Je reformule ma demande au fait mon objectif est d'envoyer séparément chaque ligne de mon fichier par mail(mon fichier contient 8 colonnes séparées par des pipes) .

    Contenu du fichier:
    CODE|OPERATEUR|NUM|MONTANT|NID|NOM|DATE|HEURE|
    847024|062|5207561570183|95000,0|1640556641101|JENA CHARLE|23/12/2014|09:44:27.638|
    046388|062|9209299569983|85000,0|1722194500452|BILL KERN|23/12/2014|09:58:46.532|
    046012|062|7353821570162|92000,0|19431945122551|HELIAS JOL|23/12/2014|10:14:39.366|
    le corps du mail sera comme suit:

    Code:<value in file> Operator:<value in file>
    Number:<valeur dans le fichier> Amount:<value in file>
    NID:<value in file> Name:<value in file>
    DATE:<value in file> HOUR:<value in file>

  6. #6
    Expert confirmé

    Homme Profil pro
    Responsable déploiement (SCCM, InTune, GPO)
    Inscrit en
    Juillet 2014
    Messages
    3 218
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Responsable déploiement (SCCM, InTune, GPO)
    Secteur : Transports

    Informations forums :
    Inscription : Juillet 2014
    Messages : 3 218
    Par défaut
    ProgElecT t'a fournit un code pour récupérer les données.
    l_autodidacte t'a fournit de quoi envoyer le mail.

    Quel est le problème ? Tu en est ou dans ton code ?

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

Discussions similaires

  1. [javamail] envoi mail avec message en pièce jointe
    Par k4eve dans le forum API standards et tierces
    Réponses: 5
    Dernier message: 16/11/2007, 11h17
  2. [VB]Bp envoie mail avec piéce jointe
    Par jm1213 dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 17/02/2006, 20h55
  3. [Oracle 10g] Envoi mail avec PJ à une heure donnée
    Par djoule6 dans le forum Oracle
    Réponses: 5
    Dernier message: 25/10/2005, 11h51
  4. Envoi mail avec Outlook accusé de réception
    Par KapoueMan dans le forum Access
    Réponses: 2
    Dernier message: 14/04/2005, 10h41
  5. envoi mail avec piece jointe fichier excel
    Par flogreg dans le forum ASP
    Réponses: 12
    Dernier message: 20/12/2004, 16h02

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