Pozdravljeni!
V Excelu imam naslednje podatke:
- e-mail
- Zadeva
- Vsebina
- Status
Potreboval bi makro, ki bi vsem, ki imajo v polju Status = True prebral naslovnika iz stolpca "e-mail", vpisal iz stolpca "Zadeva", vsebino zadeve in iz stolpca "Vsebina", vsebino in poslal mail...
hvala za pomoč...
Send Mail!
Pozdravljeni,
Pošiljanje e-sporočil iz Excela imate razloženo v spodnjih tematikah:
http://www.matjazev.net/forum/viewtopic.php?t=126
http://www.matjazev.net/forum/viewtopic.php?t=5
Pošiljanje e-sporočil iz Excela imate razloženo v spodnjih tematikah:
http://www.matjazev.net/forum/viewtopic.php?t=126
http://www.matjazev.net/forum/viewtopic.php?t=5
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Pozdravljeni,
Nekaj v spodnjem stilu (odvisno pač od tega, v katerem stolpcu konkretno je kater podatek:
Nekaj v spodnjem stilu (odvisno pač od tega, v katerem stolpcu konkretno je kater podatek:
Koda: Izberi vse
Option Explicit
' www.matjazev.net
' 18.06.2006
Sub PosliEPosto(vrstica)
Dim iMsg As Object
Dim iConf As Object
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
With iMsg
Set .Configuration = iConf
.To = Cells(vrstica, 1)
.CC = ""
.BCC = ""
.From = "<webmaster@matjazev.net>"
.Subject = Cells(vrstica, 2)
.TextBody = Cells(vrstica, 3)
.Send
End With
Set iMsg = Nothing
Set iConf = Nothing
End Sub
Sub Poslji()
Dim vrstica As Long
vrstica = 0
Do While (Not IsEmpty(Cells(vrstica, 1)))
If (Cells(vrstica, 4)) Then PosliEPosto vrstica
vrstica = vrstica + 1
Wend
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator