Frage : Excel-Makro, zum von eMail von den Daten aviailable in ihm herzustellen.

Hallo,

Excel muss das Makro, zum von eMail von den Daten, die im it.

When Makrodurchlauf herzustellen aviailable sind, die „Computerbezeichnung“ überprüfen wie übertreffen innen in einem txt file.

PC2549; emailaddress1
PC1873; emailaddress1
PC1871; emailaddress1

So, wenn die Computerbezeichnung in der txt Akte zusammengebracht wird. Sie muss eine neue eMail mit dem email address im nect zur Maschine name.
Then herstellen einsetzte den Einzelteilnamen in das Thema. und der Körper als this

Hi,

Some Daten im Körper“ Einzelteilname " irgendein anderes data.

regards
Somename

if die übertreffencomputerbezeichnung in 2mal und in Einzelteilnamen ist herstellen 2 eMail unterschiedlich und wenn Einzelteilname und -computerbezeichnung sind, verursachen selbe dann gerade 1 email.

can, das jedermann helfen bei diesem macro.

excel gefallen, oder Aussichtmakro ist fine.

regards
sharath
Attachments:

Antwort : Excel-Makro, zum von eMail von den Daten aviailable in ihm herzustellen.

Die Version unten sollte 1 u. 2 und sehr vermutlich 3 außerdem lösen (erfolgreich geprüft auf meinem PC)

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

VorReadfromtext ()
Schwache Rumpfstation
A verdunkeln
mSheet als Arbeitsblatt verdunkeln
mRange als Strecke verdunkeln
fAddress als Schnur, bodyS verdunkeln als Schnur, lAddress als Schnur, mAddress als Schnur
firstName als Schnur, secondName verdunkeln als Schnur
oApp verdunkeln
mItem verdunkeln

mSheet = ThisWorkbook.Worksheets („Sheet1“) einstellen
Einstellen Rumpfstation = CreateObject („Scripting.FileSystemObject“)
Auf Störung zunächst wieder aufnehmen
oApp = GetObject ("", „Outlook.Application“ einstellen)
Wenn Err.Number <> 9 dann
    oApp = CreateObject („Outlook.Application“) einstellen
Beenden wenn
Auf Störung Goto- 0
Einstellen a = fs.OpenTextFile („C:\mail.txt ")
Tun während a.AtEndOfLine = falsch
    mComputer = a.ReadLine
    mAddress = recht (mComputer, Len (mComputer) - InStr (1, mComputer, „; "))
    mComputer = verließ (mComputer, InStr (1, mComputer, „; ") - 1)
    mRange = mSheet.UsedRange.Find (mComputer) einstellen
    Wenn nicht mRange nichts dann ist
        fAddress = mRange.Address
        firstName = mSheet.Cells (mRange.Row, 4).Text
        Tun
            mItem = oApp.CreateItem (olMailItem) einstellen
            bodyS = ""
            Mit mItem
                . Zu = mAddress
                . Thema = mSheet.Cells (mRange.Row, 4).Text
                bodyS = bodyS u. „hallo“ u. verließen (mAddress, InStr (1, mAddress, „.") - 1) u. „,“ u. vbCrLf
                bodyS = bodyS u. vbCrLf
                bodyS = bodyS u. „etwas Daten im Körper """ u. im mSheet.Cells (mRange.Row, 4).Text u. """ etwas andere Daten“ u. vbCrLf
                bodyS = bodyS u. vbCrLf
                bodyS = bodyS u. „Respekt“ u. vbCrLf
                bodyS = bodyS u. „Sharath“ u. vbCrLf
                . Körper = bodyS u. vbCrLf u. ersetzen (mSheet.Cells (mRange.Row, 4).Hyperlinks (1).Address, „„, „%20“)
                . Speichern
            Mit beenden
            mRange = mSheet.UsedRange.FindNext (mRange) einstellen
            Wenn mRange nichts dann ist
                lAddress = ""
                secondName = ""
            Sonst
                lAddress = mRange.Address
                secondName = mSheet.Cells (mRange.Row, 4).Text
            Beenden wenn
        Schlingen, während nicht mRange nichts und lAddress fAddress <> und firstName secondName <> ist
    Beenden wenn
Schleife
a.Close
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us