Hozzászólás: Excelfájlt makróval Thunderbirdbe küldeni E-mailt

Köszi, sikerült végül, cserébe küldöm a megoldást, szerintem érthető (Az IP címek a fiók nevéhez van a fejbe tömbként beadva). Beírkáltam az egyes részekhez, hogy mit is csinál, ez talán segíthet másoknak is 🙂

‘hibát megvizsgálja
hiba = Range(„G20”).Value
If hiba = „Hiba!” Then
MsgBox „Hiba van az adatokban, nem tudjuk így elküldeni!”
End
End If

‘megkeresi a fiókhoz tartozó IP címet
fiok = Range(„D1”).Value
For i = 1 To 30
If fiok = tomb(i, 1) Then IPcim = tomb(i, 2)
Next

‘lementi az éppen aktuális helyre másolatként Pd.xls néven a fájlt
wb = ActiveWorkbook.Path
wb = wb & „\Pd.xls”
ActiveWorkbook.SaveCopyAs wb

‘Előkészíti a levelet, ide kell az IP cím
Set iMsg = CreateObject(„CDO.Message”)
Set iConf = CreateObject(„CDO.Configuration”)

iConf.Load -1 ‘ CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item(„http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
.Item(„http://schemas.microsoft.com/cdo/configuration/smtpserver”) _
= IPcim
.Item(„http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
.Update
End With

strbody = „Mai p ” & fiok

‘A csatolmányt meg a címzetteket, tárgyat itt lehet megadni

With iMsg
Set .Configuration = iConf
.To = ” @.hu”
.CC = „”
.AddAttachment wb
.BCC = „”
.From = ecim
.Subject = strbody
.TextBody = strbody
.Send
MsgBox „Rendelés elküldve!”

End With

‘kitörli a Pd.xls fájlt

Kill wb

End Sub