Macro di Excel per generare i email dai dati aviailable in esso. - Problemi e soluzioni alle problematiche legate a 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 secondario ()
Fs fioco
Oscurare la a
Oscurare il mSheet come manuale
Oscurare il mRange come gamma
Oscurare i fAddress come stringa, bodyS come stringa, i lAddress come stringa, mAddress come stringa
Oscurare il firstName come stringa, secondName come stringa
Oscurare il oApp
Oscurare il mItem

Regolare il mSheet = ThisWorkbook.Worksheets (“Sheet1„)
Regolar fs = CreateObject (“Scripting.FileSystemObject„)
Sull'errore riprendere dopo
Regolare il oApp = GetObject ("", “Outlook.Application„)
Se Err.Number <> 9 allora
    Regolare il oApp = CreateObject (“Outlook.Application„)
Concluder se
Sull'errore 0 di avanzamento
Regolar a = fs.OpenTextFile (“C:\mail.txt ")
Fare mentre a.AtEndOfLine = falso
    mComputer = a.ReadLine
    mAddress = di destra (mComputer, Len (mComputer) - InStr (1, mComputer, “; "))
    il mComputer = ha andato (mComputer, InStr (1, mComputer, “; ") - 1)
    Regolare il mRange = mSheet.UsedRange.Find (mComputer)
    Se non il mRange allora è niente
        fAddress = mRange.Address
        firstName = mSheet.Cells (mRange.Row, 4).Text
        Fare
            Regolare il mItem = oApp.CreateItem (olMailItem)
            bodyS = ""
            Con mItem
                . A = mAddress
                . Oggetto = mSheet.Cells (mRange.Row, 4).Text
                il bodyS = il bodyS & “ciao„ & hanno andato (mAddress, InStr (1, mAddress, “.") - 1) & “,„ & vbCrLf
                bodyS = bodyS & vbCrLf
                bodyS = bodyS & “alcuni dati nel """ del corpo & nel mSheet.Cells (mRange.Row, 4).Text & """ alcuni altri dati„ & vbCrLf
                bodyS = bodyS & vbCrLf
                bodyS = bodyS & “riguardi„ & vbCrLf
                bodyS = bodyS & “Sharath„ & vbCrLf
                . Il corpo = il bodyS & il vbCrLf & sostituiscono (mSheet.Cells (mRange.Row, 4).Hyperlinks (1).Address, ““, “%20„)
                . Risparmiare
            Concluder con
            Regolare il mRange = mSheet.UsedRange.FindNext (mRange)
            Se il mRange allora è niente
                lAddress = ""
                secondName = ""
            Altrimenti
                lAddress = mRange.Address
                secondName = mSheet.Cells (mRange.Row, 4).Text
            Concluder se
        Collegare mentre non il mRange è fAddress dei lAddress e <> niente e secondName <> del firstName
    Concluder se
Ciclo
a.Close
Sommergibile dell'estremità

Questione : Macro di Excel per generare i email dai dati aviailable in esso.

Risposta : Macro di Excel per generare i email dai dati aviailable in esso.