Izprastane na email ot VB app

Zdravejte,

molq vi pomognete, kak da izpratja email ot VB programa?
Iskam pri clickvane na buton da se izprati mail do opredelen adres s njakakuv sender, subject i message body.
smtp servera se namira na sushtoto pc.
Az sum absoluten nacinaesht, koj e naj-prostija nacin?

10x

otidi na [линк] i si iztochi JMail.

Blagodarq,

no neshto ne moga da go podkaram.
Dava mi error 424(object required) v toja red:
Set msg = Server.CreateObject("JMail.Message")
Kopirah jmail.dll v winnt\system32 i go registrirah s regsvr32, kaza mi che e OK.
Trqbva li da napravja oste nesto?

Creatvash gresen obekt. Probvai taka:

Set jmail = Server.CreateObject("JMail.SMTPMail")

jmail.ContentType = "text/plain" ' mime type
jmail.charset = "windows-1251" ' cyrilic charset

jmail.ServerAddress = SMTPServer
jmail.SenderName = SenderName
jmail.Sender = SenderAddress

jmail.AddRecipient email
jmail.Subject = Subject
jmail.Body = MsgBody

'Send it!
jmail.Execute

Tnx,

obace mi dava sashtata greshka v
Set jmail = Server.CreateObject("JMail.SMTPMail")
Slozih jmail.dll v dir na proekta i go registrirah.
Vsushnost eto go celiq kod, imam forma s 1 buton i iskam pri click da send-na mail

Private Sub Command1_Click()
Set jmail = Server.CreateObject("JMail.SMTPMail")

jmail.ContentType = "text/plain" ' mime type
jmail.Charset = "windows-1251" ' cyrilic charset

jmail.ServerAddress = "192.168.0.88" ' tova mi e IP-to, probvah i 127.0.0.1, smtp servera e na moja PC

jmail.SenderName = "PNN"
jmail.Sender = "AZ@abc.com"

jmail.AddRecipient "miro9999@hotmail.com"
jmail.Subject = "TEZT"
jmail.Body = "AAAAAAAH!!"

'Send it!
jmail.Execute

End Sub

абе, фреди, ти на какво го пишеш това?

Server.CreateObject("JMail.SMTPMail") изглежда като ASP синтаксис
пък ти говориш за форма т.е. за VB 5/6?????
я махни Server. от реда...

и още - декларирай променливата jmail, вярно че VB-то е гъвкаво по отношение декларирането на променливи, ама не декларираните променливи предизвикват БОЗИ

ако искаш средата да прави проверка дали не си изтървал да декларираш нещо слагай Option Explicit в началото на модулите
ако не друго поне проблемите с объркани имена на променливи ще отпаднат (в повечето случаи)



--------
А Картаген... вие си знаете за Картаген
s/Картаген/Модератор/g

виждам че се опитваш да създадеш обект JMail.SMTPMail само дето в help-а на JMail такъв обект не е споменат

Ето списъка на обектите (взел съм го от PDF фаила който върви като документация на w3 JMail библиотеката w3jmail4.pdf):

JMail.POP3
JMail.Messages
JMail.Message
JMail.Headers
JMail.Recipients
JMail.Recipient
JMail.Attachments
JMail.Attachment
JMail.MailMerge
JMail.PGPKeys
JMail.PGPKeyInfo
JMail.SpeedMailer


това са обектите които можеш да използваш (как - виж в help-а) със сигурност.
Всички примери са за ASP scriprts, внимавай когато ги ползваш

ПС: В интерес на истината има обект SMTPMail, или поне в registry-то го има (HKEY_CLASSES_ROOT\jmail.SMTPMail).
Доколкото разбирам оставен е за обратна съвместимост с предишните версии.
--------
А Картаген... вие си знаете за Картаген
s/Картаген/Модератор/g

e-de ti e otgovoril zashto e greshkata. Az izpolzvam po stara versiq i tam progid-to e JMail.SMTPMail, no ti vij v help tochno kakvo trqbva da bude.

това е тествано на MS Access 97 под WinNT 4.0 Server, но мисля че ще работи и за VB 5/6 с друга ОС (Windows 9x/2000, естествено)

Private Sub Command1_Click()
Dim jmail

Set jmail = CreateObject("JMail.message")

jmail.ISOEncodeHeaders = False 'ако е True charset реда няма да работи, мисля
jmail.Charset = "windows-1251" 'cyrilic charset

'jmail.Sender = "AZ@abc.com"
jmail.from = "AZ@abc.com"

'jmail.SenderName = "PNN"
jmail.FromName = "PNN"

jmail.AddRecipient "miro9999@hotmail.com"

jmail.Subject = "TEZT"
jmail.Body = "AAAAAAAH!!"

'Send it!
'jmail.Execute
jmail.Send ("192.168.0.88 ")
'това последното, незнам дали е така - нямам изход за Мрежата (не ме питай как нямам изход като пиша тук - просто нямам и толкоз ;-)), и немога да го тествам с друг сървър освен с локалния (на моята машина). Погледни help-a.

End Sub

--------
А Картаген... вие си знаете за Картаген
s/Картаген/Модератор/g

mnogo vi blagodarja na vsicki !!!
sega raboti ok :)