Exceler le macro pour créer des email des données aviailable dans lui. - Problèmes et solutions aux problèmes liés à Software

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 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :

Readfromtext secondaire ()
Faible fs
Obscurcir a
Obscurcir le mSheet comme feuille de travail
Obscurcir le mRange comme gamme
Obscurcir les fAddress comme corde, bodyS comme corde, les lAddress comme corde, mAddress comme corde
Obscurcir le firstName comme corde, secondName comme corde
Obscurcir l'oApp
Obscurcir le mItem

Placer le mSheet = le ThisWorkbook.Worksheets (« Sheet1 »)
Placer fs = CreateObject (« Scripting.FileSystemObject »)
Sur l'erreur reprendre après
Placer l'oApp = le GetObject ("", « Outlook.Application »)
Si Err.Number <> 9 puis
    Placer l'oApp = le CreateObject (« Outlook.Application »)
Finir si
Sur l'erreur 0 GoTo
Placer a = fs.OpenTextFile (« C:\mail.txt ")
Faire tandis qu'a.AtEndOfLine = faux
    mComputer = a.ReadLine
    mAddress = droit (mComputer, Len (mComputer) - InStr (1, mComputer, « ; "))
    le mComputer = est parti (mComputer, InStr (1, mComputer, « ; ") - 1)
    Placer le mRange = le mSheet.UsedRange.Find (le mComputer)
    Sinon le mRange n'est rien alors
        fAddress = mRange.Address
        firstName = mSheet.Cells (mRange.Row, 4).Text
        Faire
            Placer le mItem = l'oApp.CreateItem (l'olMailItem)
            bodyS = ""
            Avec le mItem
                . À = mAddress
                . Sujet = mSheet.Cells (mRange.Row, 4).Text
                le bodyS = le bodyS et « salut » et sont partis (mAddress, InStr (1, des mAddress, « .") - 1) et « , » et vbCrLf
                bodyS = bodyS et vbCrLf
                bodyS = bodyS et « quelques données dans le """ de corps et le mSheet.Cells (mRange.Row, 4).Text et """ quelques autres données » et vbCrLf
                bodyS = bodyS et vbCrLf
                bodyS = bodyS et « respect » et vbCrLf
                bodyS = bodyS et « Sharath » et vbCrLf
                . Le corps = le bodyS et le vbCrLf et remplacent (mSheet.Cells (mRange.Row, 4).Hyperlinks (1).Address, « « , « %20 »)
                . Économiser
            Finir avec
            Placer le mRange = le mSheet.UsedRange.FindNext (le mRange)
            Si le mRange n'est rien alors
                lAddress = ""
                secondName = ""
            Autrement
                lAddress = mRange.Address
                secondName = mSheet.Cells (mRange.Row, 4).Text
            Finir si
        Faire une boucle tandis que pas le mRange est les fAddress de rien et <> de lAddress et le secondName <> de firstName
    Finir si
Boucle
a.Close
Sous-marin d'extrémité

Question : Exceler le macro pour créer des email des données aviailable dans lui.

Réponse : Exceler le macro pour créer des email des données aviailable dans lui.