Slanje maila iz vb 6

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

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