Vraag : De macro van Excel om e-mail van de gegevens tot stand te brengen aviailable daarin.

Hallo, moet de macro

Excel om e-mail van de gegevens tot stand te brengen aviailable in macrolooppas it.

When de „naam van de Computer controleren“ zoals binnen in een txt file.

PC2549 uitblink; emailaddress1
PC1873; emailaddress1
PC1871; emailaddress1

So wanneer de computernaam in het txtdossier wordt aangepast. Het moet tot een nieuwe e-mail met het e-mailadres in nect aan de machine name.
Then leiden zette de puntnaam bij het Onderwerp. en het lichaam aangezien this

Hi,

Some- gegevens in het lichaam“ Punt " één of andere andere data.

regards
Somename

if uitblinken computernaam in 2 keer noemen en de puntnaam verschillend is cre�ërt 2 e-mail en als de puntnaam en de computernaam enkel 1 email.

can gelieve dan te creëren iedereen zelfde zijn help met dit macro.

excel of de vooruitzichtenmacro is fine.

regards
sharath
Attachments:
van
Sample.xls (31 KB)  (de Details van het Type van Dossier)  
sample

Antwoord : De macro van Excel om e-mail van de gegevens tot stand te brengen aviailable daarin.

De versie zou hieronder 1 & 2, en zeer waarschijnlijk 3 moeten oplossen eveneens (met succes getest op mijn 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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:

Sub Readfromtext ()
Schemerige fs
Verduister a
Verduister mSheet als Aantekenvel
Verduister mRange als Waaier
Verduister fAddress als Koord, bodyS als Koord, lAddress als Koord, mAddress als Koord
Verduister firstName als Koord, secondName als Koord
Verduister oApp
Verduister mItem

Plaats mSheet = ThisWorkbook.Worksheets („Sheet1“)
Plaats fs = CreateObject („Scripting.FileSystemObject“)
Op Fout hervat daarna
Plaats oApp = GetObject ("", „Outlook.Application“)
Als Err.Number <> 9 toen
    Reeks oApp = CreateObject („Outlook.Application“)
Eind als
Op Fout GoTo 0
Plaats a = fs.OpenTextFile („C:\mail.txt“)
Doe terwijl a.AtEndOfLine = Vals
    mComputer = a.ReadLine
    mAddress = Juist (mComputer, Len (mComputer) - InStr (1, mComputer, „; “))
    mComputer = Weggegaan (mComputer, InStr (1, mComputer, „; “) - 1)
    Reeks mRange = mSheet.UsedRange.Find (mComputer)
    Als niet mRange dan niets is
        fAddress = mRange.Address
        firstName = mSheet.Cells (mRange.Row, 4). Tekst
        
            Plaats mItem = oApp.CreateItem (olMailItem)
            bodyS = ""
            Met mItem
                . Aan = mAddress
                . Onderwerp = mSheet.Cells (mRange.Row, 4). Tekst
                bodyS = bodyS & „hallo“ & Weggegaan (mAddress, InStr (1, mAddress, „. “) - 1) & „,“ & vbCrLf
                bodyS = bodyS & vbCrLf
                bodyS = bodyS & „Sommige gegevens in het lichaam """ & mSheet.Cells (mRange.Row, 4). Tekst & """ een andere gegevens“ & vbCrLf
                bodyS = bodyS & vbCrLf
                bodyS = bodyS & „Achting“ & vbCrLf
                bodyS = bodyS & „Sharath“ & vbCrLf
                . Het lichaam = bodyS & vbCrLf & vervangt (mSheet.Cells (mRange.Row, 4). Hyperlinks (1). Adres, „„, „%20“)
                . Sparen
            Eind met
            Reeks mRange = mSheet.UsedRange.FindNext (mRange)
            Als mRange dan niets is
                lAddress = ""
                secondName = ""
            Anders
                lAddress = mRange.Address
                secondName = mSheet.Cells (mRange.Row, 4). Tekst
            Eind als
        Lijn terwijl niet mRange niets en lAddress fAddress <> en firstName secondName <> is
    Eind als
Lijn
a.Close
Sub van het eind
Andere oplossingen  
 
programming4us programming4us