..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

e- pošta ponovno

Pomoč pri izdelavi makrov

e- pošta ponovno

OdgovorNapisal/-a BJ » To sep 08, 2009 9:14 am

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
BJ
 
Prispevkov: 154
Pridružen: Sr okt 26, 2005 5:46 pm



Matjazev.NET
 

OdgovorNapisal/-a admin » To sep 08, 2009 9:20 am

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
admin
Site Admin
 
Prispevkov: 3537
Pridružen: Sr jul 20, 2005 10:06 pm


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost