Slanje maila iz vb 6

[ acatheking @ 26.09.2003. 14:08 ] @

Moze li jedan primer kako treba da izgleda kod za slanje mail iz VB 6?
Unapred hvala!

[ mladenovicz @ 26.09.2003. 14:30 ] @

Mozes da koristis Microsoft Outlook Object Library, CDONTS (ovo ima negde na forumu potrazi) ili sta god.

Evo primercic, ako korsistis Microsoft Outlook Object Library

Code:

Dim objoutlook As New Outlook.Application
Dim objmail As MailItem

Set objmail = objoutlook.CreateItem(olMailItem)

With objmail
    .To = "<e-mail address>"
    .CC = "<e-mail address>"
    .Subject = "<subject>"
    .Body = "<message>"
    .Attachments.Add ("<path & file>")
    .Send
End With

Set objmail = Nothing

[ acatheking @ 26.09.2003. 14:58 ] @

U vb, u listi postojecih referenci ne postoji Microsoft Outlook Object Library
Kako da je dodam?

[ mladenovicz @ 26.09.2003. 15:10 ] @

treba ti fajl koji se zove msoutl.olb. Ako ga nemas, probaj da reinstaliras Outlook pa vidi sta moze da se ukljuci prilikom instalacije.

[ acatheking @ 26.09.2003. 15:52 ] @

Snasao sam se i sve to radi. Ne svidja mi se to sto poruke idu u outbox ms outlooka, pa onda dalje.
Imam registrovanu jmail componentu i ona podrzava slanje preko relay-a. U asp-sam probao i radi slanje, ali ne znam kako treba da izgleda kod u vb.

Evo koda iz asp

Code:

dim adresa, naslov, poruka

adresa=request.form("txt_adresa")
naslov=request.form("txt_naslov")
poruka=request.form("txt_poruka")

if adresa="" then
    response.write "Niste uneli adresu"
    response.end
end if

    set msg = Server.CreateOBject( "JMail.Message" )


    msg.Logging = true
    msg.silent = true


    msg.From = "[email protected]"
    msg.FromName = "Name"


    msg.AddRecipient  adresa
    msg.Subject = naslov
    msg.Body = poruka


    if not msg.Send( "relay.domain.com" ) then
        Response.write "<pre>" & msg.log & "</pre>"
    else

        response.write "adresa: " & adresa & "<br>"
        response.write "naslov: " & naslov & "<br>"
        response.write "poruka: " & poruka & "<br>"
        Response.write "Poruka je uspešno poslata"
    end if

kako ga prilagoditi za vb?
Pravi mi problem oko objekta

[ mladenovicz @ 26.09.2003. 15:57 ] @

Nisam radio sa JMailom, ali trebalo bi ovako nesto

set msg = Server.CreateOBject( "JMail.Message" )
zamenis sa
set msg = CreateOBject( "JMail.Message" )

s tim sto ako ga ukljucis u reference trebalo bi da moze i

set msg = New JMail.Message

[ acatheking @ 26.09.2003. 16:09 ] @

Uradio sam ono prvo sto si predlozio. Radi sve.
Hvala care!!