Macro de Excel para crear email de los datos aviailable en ella. - Problemas y soluciones a los problemas relacionados con 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 secundario ()
Fs dévil
Amortiguar a
Amortiguar el mSheet como hoja de trabajo
Amortiguar el mRange como gama
Amortiguar los fAddress como secuencia, bodyS como secuencia, lAddress como secuencia, mAddress como secuencia
Amortiguar el firstName como secuencia, secondName como secuencia
Amortiguar el oApp
Amortiguar el mItem

Fijar el mSheet = ThisWorkbook.Worksheets (“Sheet1”)
Fijar fs = CreateObject (“Scripting.FileSystemObject”)
En error reasumir después
Fijar el oApp = GetObject ("", “Outlook.Application”)
Si Err.Number <> 9 entonces
    Fijar el oApp = CreateObject (“Outlook.Application”)
Terminar si
En el error 0 indicado
Fijar a = fs.OpenTextFile (“C:\mail.txt ")
Hacer mientras que a.AtEndOfLine = falso
    mComputer = a.ReadLine
    mAddress = derecho (mComputer, Len (mComputer) - InStr (1, mComputer, “; "))
    el mComputer = se fue (mComputer, InStr (1, mComputer, “; ") - 1)
    Fijar el mRange = mSheet.UsedRange.Find (el mComputer)
    Si no el mRange entonces no es nada
        fAddress = mRange.Address
        firstName = mSheet.Cells (mRange.Row, 4).Text
        Hacer
            Fijar el mItem = oApp.CreateItem (el olMailItem)
            bodyS = ""
            Con el mItem
                . A = mAddress
                . Tema = mSheet.Cells (mRange.Row, 4).Text
                el bodyS = el bodyS y “hola” y se fueron (los mAddress, InStr (1, los mAddress, “.") - 1) y “,” y vbCrLf
                bodyS = bodyS y vbCrLf
                bodyS = bodyS y un “ciertos datos en el """ y el mSheet.Cells (mRange.Row, 4).Text y """ del cuerpo un ciertos otros datos” y vbCrLf
                bodyS = bodyS y vbCrLf
                bodyS = bodyS y “respetos” y vbCrLf
                bodyS = bodyS y “Sharath” y vbCrLf
                . El cuerpo = el bodyS y el vbCrLf y substituyen (mSheet.Cells (mRange.Row, 4).Hyperlinks (1).Address, ““, “%20”)
                . Ahorrar
            Terminar con
            Fijar el mRange = mSheet.UsedRange.FindNext (el mRange)
            Si el mRange entonces no es nada
                lAddress = ""
                secondName = ""
            
                lAddress = mRange.Address
                secondName = mSheet.Cells (mRange.Row, 4).Text
            Terminar si
        Colocar mientras que no el mRange es fAddress nada y <> de los lAddress y secondName <> del firstName
    Terminar si
Lazo
a.Close
Submarino del extremo

Cuestión : Macro de Excel para crear email de los datos aviailable en ella.

Respuesta : Macro de Excel para crear email de los datos aviailable en ella.