Отправка письма

[Гость]

Наверное такой вопрос уже неоднократно появлялся на форме, но поиск кажется так и не работает, так что задаю ещё раз:
Как отправить письмо через какую то учетную запись, логин и парол которой укажет пользователь?
А ещё лучше бы узнать, как отправить письмо через какой-нибуть такой сервер, у которых регистрация не нужна, т.е. анонимный или как их там.
Был бы примного благодарен.

[EvilCoder]

< DELETE >

[xfolder]

http://www.ostrosoft.com/smtp_component.asp

vot usay

besplatno i prosto

[Гость]

Спасибо.
Может быть еще найдется такой добрый человек, который мне еще и кусочек кода по работе с этим контролом покажет или кусочек, реализующий посылку письма, без контрола?

Извините за грамматику в тексте вопроса, я тогда был немного пъян.

[EvilCoder]

< DELETE >

[Гость]

Попробовал этот код:
Private Sub Command1_Click()
On Error GoTo mailerr
MAPISession1.SignOn
If MAPISession1.SessionID <> 0 Then
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
'.AttachmentPathName = "Ïàïêà ñ àòòà÷åì"
'.AttachmentName = "Ôàéë-àòòà÷"
'àòòà÷ îáÿçàòåëåí
.RecipAddress = "ssvveettaa@list.ru"
.MsgSubject = "Ðåçóëüòàòû òåñòà"
.MsgNoteText = "Îöåíêà 2"
.Send 0
End With
Exit Sub
End If
mailerr:
MsgBox "Error " & Err.Description
End Sub

Всегда выдает ошибку unspecified failure occured