Question : Macro de perspectives pour questionner un dossier de txt et pour envoyer des email.

Bonjour, macro du

Outlook questionner un dossier de txt et envoyer emails.
I veulent l'aide avec un macro quand la course vérifie un dossier de txt qui a des données comme this

Filename1 ;
Filename2 d'email address ;
Filename3 d'email address ; Le nom de fichier du

The d'email address doit être signé une chemise où tous ces dossiers de txt sont disponibles et envoyer alors le contenu de dossier de txt dans le corps et l'email address dans à l'email address du box
Each serait sujet du different

A comme avec un peu de data
I de DBO veulent le contenu de txt dans une table. Ainsi il regarde neat.

Regards
Sharath
class= de

Réponse : Macro de perspectives pour questionner un dossier de txt et pour envoyer des email.

L'ok, essayent ceci.

« 
            Boucle
            « Sur la prochaine ligne éditer le message comme désiré. »
            .HTMLBody = « salut,




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 :



ImportFromFileAndSend secondaire ()
    Faible objFSO comme objet, _
        objFile1 comme objet, _
        objFile2 comme objet, _
        olkMsg comme objet, _
        strBuffer comme corde, _
        arrParts comme variante, _
        strTable comme corde
    Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
    « Sur la prochaine ligne éditer le nom de fichier et le chemin. »
    Placer objFile1 = objFSO.OpenTextFile (« C:\eeTesting\masterfile.txt ")
    Faire jusqu'à objFile1.AtEndOfStream
        strBuffer = objFile1.ReadLine
        les arrParts = se sont dédoublés (strBuffer, « ; ")
        Placer l'olkMsg = l'Application.CreateItem (l'olMailItem)
        Avec l'olkMsg
            « Sur la prochaine ligne éditer le chemin de dossier. »
            Placer objFile2 = objFSO.OpenTextFile (« C:\eeTesting\ » et arrParts (0))
            « Sur la prochaine ligne changement le sujet comme désiré. »
            . Le sujet = « votre sujet va ici »
            . À = arrParts (1)
            .BodyFormat = olFormatHTML
            Faire jusqu'à objFile2.AtEndOfStream
                « Sur la prochaine ligne éditer le HTML comme désiré. »
                strTable = strTable et « 
« et objFile2.ReadLine et » 
« et strTable et »Nom de logicielCommentaires


Respect
Somename "
            . Affichage
        Extrémité avec
        objFile2.Close
    Boucle
    Placer l'olkMsg = rien
    Placer objFile1 = rien
    Placer objFile2 = rien
    Placer l'objFSO = rien
Finir le sous-marin