VBNet - Форум - Нужен Хороший пример по отправки Email

Вопрос: Нужен Хороший пример по отправки Email Добавлено: 08.02.04 21:24

Автор вопроса: HACKER

Нужен Хороший пример по отправки Email с Winsock, очень интересует простота, и поля для отпарвки Кому/Копия/СкрытаяКопия. Простота имеется ввиду что ненужно мне какие-то программы-проекты для отправки почты, очень буду рад если кто-то подбросит всё что мне надо, в однгом модуле (BAS)
Ответить

Ответы Всего ответов: 6

Номер ответа: 1
Автор ответа:

HACKER

Разработчик Offline Client

Вопросов: 236
Ответов: 8362

Профиль | | #1

Добавлено: 08.02.04 21:27

А, и ешё. А сколько E-mail'oв можно в каждом поле через точку с запятой написать, наверное сколько угодно, но сколько реально расматривается при пересылке на все эти E-amil?

Ответить

Номер ответа: 2
Автор ответа:

Yozhik

ICQ: 155203389

Вопросов: 3
Ответов: 20

Web-сайт: www.yozhik.tk
Профиль | | #2

Добавлено: 08.02.04 23:47

Эт нетрудно ;-)

public sub SendMail(iWinsock as control, SMTPServ as string, _

ReversePath as string, FowardPath as string, Subject as string, _

MessageBody as string)

iWinsock.Close

iWinsock.Connect SMTPServ, 25

iWinsock.send "hello " & VbCrLf

iWinsock.send "MAIL FROM:" & ReversePath & vbcrlf

iWinsock.Send "RCPT TO:" & FowardPath & VbCrLf

iWinsock.Send "DATA" & vbcrlf

iWinsock.send "From:" & ReversePath & vbcrlf

iWinsock.Send "To:" & FowardPath & VbCrLf

iWinsock.send "Subject:" & Subject & vbcrlf & vbcrlf

iWinsock.Send MessageBody & vbcrlf & "." & vbcrlf

iWinsock.Send "QUIT"

iWinsock.Close

End Sub

Ответить

Номер ответа: 3
Автор ответа:

Yozhik

ICQ: 155203389

Вопросов: 3
Ответов: 20

Web-сайт: www.yozhik.tk
Профиль | | #3

Добавлено: 08.02.04 23:49

Вот еще насчет полей..... Непомню, как они в песьме пишуться....

Разбери какой-нить письмо и посмотри как оно там...

И допиши затем после отправки команды "To:".

Сабж должен идти последним.

Ответить

Номер ответа: 4
Автор ответа:

sne

Разработчик Offline Client

ICQ: 233286456

Вопросов: 34
Ответов: 5445

Web-сайт: hw.t-k.ru
Профиль | | #4

Добавлено: 09.02.04 00:06

Напомню, что имеется така функция, как MAPISendMail... См. MSDN, там даже специально имеется (MAPISendMail (VB))

Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 09.02.04 21:12
	ага, пасибо Ответить

Номер ответа: 6
Автор ответа:

HACKER

Разработчик Offline Client

Вопросов: 236
Ответов: 8362

Профиль | | #6

Добавлено: 10.02.04 21:26

Упс! Проблемка...

Ну воопервых тот код, он неработает, это пол беды, я поставлю что-то своё, проблема вот в чём. Есть массив ws (Winsock), как организовать отправку не по очереди с каждого, а чтоб все сразу, т.е. есть подпрограмма которой указуешь что отправлять и через какой Winsock, но вызываю я то это подпрограмму в цикле For...Next, т.е. по порядку, значит пока какой-то winsock не закончит отправку, слейдущий по счёту winsock неначнёт свою отправку, а мне надо чтоб все одновременно, чтоб все winsock'и через одну продпрограмму отправляли независимо друг от друга. Вообщем всё эту путаницу ни как немогу распутать, это я пишу прогу для массовой рассылки emal'ов, ну и скорость соответственая нужна, вообщем помогите кто чем может! Мож у кого есть исходник программы для массовой рассылки, ну или помогите самому эту фигню осуществить.

Ответить

Страница: 1 |