e- pošta ponovno

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

e- pošta ponovno

Odgovor Napisal/-a BJ »

Pozdravljeni!
Poizkušam poslati pošto iz Excela z uporabo vaše kode iz foruma, vendar se mi zadeva ustavi pri vrstici ".Send".

Koda: Izberi vse

Private Sub CommandButton1_Click()

    Dim iMsg As Object
    Dim iConf As Object

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

    With iMsg
        Set .Configuration = iConf
        .To = "nek.naslov@gmail.com"
        .CC = ""
        .BCC = ""
        .From = "<moj.naslov@gmail.com>"
        .Subject = "Podatki"
        .TextBody = "Zaključeno na dan "
        .Send
    End With

    Set iMsg = Nothing
    Set iConf = Nothing
End Sub
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Ste pogledali podobne tematike na forumu. Dosedaj jih je že kar kakšnih 10 in mislim, da se odgovor na vaše vprašanje skriva v tejle tematiki.
lp,
Matjaž Prtenjak
Administrator
Odgovori