Send Mail!

[tico1]

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č...

[admin]

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

[tico1]

kam vpisati for zanko?

[admin]

Pozdravljeni,

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

[tico1]

Hvala... Mislim, da bo zdaj šlo...

lp