Function Saljimail()
Dim mail As clsSendMail

Set mail = New vbSendMail.clsSendMail
With mail
.SMTPHost = "ime tvoga hosta ono sto pises kao SMTP-Host"
.from = "Tvoja mail adresa od ovog hosta"
.FromDisplayName = "Neko Ime na emailu"
.Message = "Pisamce neko napisano"
.Attachment = "Putanja do atach"
.Recipient = "Email primaoca
.RecipientDisplayName = "Za koga je"
.Subject = "Naslov"
.Password = "sifra"
.UserName = "Tvojekorisnicko ime"
.SMTPPort = "Broj posrat obicno je 25"
.Send
End With
End Function