Первенствуйте макрос для того чтобы создать электронная почта от данных aviailable в ем. - Проблемы и решения вопросов, связанных с 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:

Sub Readfromtext ()
Тусклый fs
Затемните a
Затемните mSheet как рабочий лист
Затемните mRange как ряд
Затемните fAddress как шнур, bodyS как шнур, lAddress как шнур, mAddress как шнур
Затемните firstName как шнур, secondName как шнур
Затемните oApp
Затемните mItem

Установите mSheet = ThisWorkbook.Worksheets («Sheet1»)
Установите fs = CreateObject («Scripting.FileSystemObject»)
На ошибке возобновьте затем
Установите oApp = GetObject ("", «Outlook.Application»)
Если Err.Number <> 9 после этого
    Установите oApp = CreateObject («Outlook.Application»)
Закончитесь если
На ошибке переход 0
Установите a = fs.OpenTextFile («C:\mail.txt ")
Сделайте пока a.AtEndOfLine = ложно
    mComputer = a.ReadLine
    mAddress = право (mComputer, Len (mComputer) - InStr (1, mComputer, «; "))
    mComputer = вышло (mComputer, InStr (1, mComputer, «; ") - 1)
    Установите mRange = mSheet.UsedRange.Find (mComputer)
    Если не mRange ничего после этого
        fAddress = mRange.Address
        firstName = mSheet.Cells (mRange.Row, 4).Text
        Сделайте
            Установите mItem = oApp.CreateItem (olMailItem)
            bodyS = ""
            С mItem
                . К = mAddress
                . Вопрос = mSheet.Cells (mRange.Row, 4).Text
                bodyS = bodyS & «Hi» & вышли (mAddress, InStr (1, mAddress, «от .") до 1) & «,» & vbCrLf
                bodyS = bodyS & vbCrLf
                bodyS = bodyS & «некоторые данные в """ тела & mSheet.Cells (mRange.Row, 4).Text & """ некоторые другие данные» & vbCrLf
                bodyS = bodyS & vbCrLf
                bodyS = bodyS & «отношения» & vbCrLf
                bodyS = bodyS & «Sharath» & vbCrLf
                . Тело = bodyS & vbCrLf & заменяют ть (mSheet.Cells (mRange.Row, 4).Hyperlinks (1).Address, ««, «%20»)
                . Сохраньте
            Закончитесь с
            Установите mRange = mSheet.UsedRange.FindNext (mRange)
            Если mRange ничего после этого
                lAddress = ""
                secondName = ""
            Еще
                lAddress = mRange.Address
                secondName = mSheet.Cells (mRange.Row, 4).Text
            Закончитесь если
        Закрепите петлеть пока не mRange будет fAddress ничего и <> lAddress и secondName <> firstName
    Закончитесь если
Петля
a.Close
Подводная лодка конца

Вопрос : Первенствуйте макрос для того чтобы создать электронная почта от данных aviailable в ем.

Ответ : Первенствуйте макрос для того чтобы создать электронная почта от данных aviailable в ем.