Почта

[Max!]

Как чтобы прога могла послать песьмо по почте (Email)? Желательно кодам!

[A.A.Z.]

Код: Выделить всё

Shell "mailto: Your@Mail.com"

[SSecurity]

Открываем POP3 протокол, берем команды и выполняем все в ВИНСОКЕ, правда со вложениями будет сложнее...

Хотя, Щас сюда заглянет любимы модератор и расскажет, как все просто через MAPI, и даст тебе ссылочку соответствующую.

[Max!]

Ну кто-нить !!! Очень надо!!!!!

[hCORe]

Увы, заглянул пока не злой модератор, а я
Лови ссылочку на тему про MAPI и сокеты. Там и примерчик на VB (правда с ActiveX'ами) завалялся:
http://bbs.vbstreets.ru/viewtopic.php?p=22125#22125

[MEMBER]

Ну это... Впихну свой эээ... Пример, ага.
Он правда библу base64 использует, но можно и код васиковский найти, который тоже самое делает.
http://bbs.vbstreets.ru/viewtopic.php?t ... highlight=

[Max!]

Нету там того чего надо ! Мне надо не большой код каторый посылал-бы письмо просто с текстом на дапустим aaaa@hotmail.ru все!

[MEMBER]

Не понял, а что, мой код большой?
Или у вас проблемы с его адаптацией под ваши нужды?

[A.A.Z.]

Подключи через Components Microsoft MAPI Controls и оба добавленных контрола добавляешь на форму.

Код: Выделить всё

Private Sub Command1_Click() 'нажата кнопка "послать"
On Error GoTo mailerr
MAPISession1.SignOn
If MAPISession1.SessionID <> 0 Then
With MAPIMessages1
.SessionID = MAPISession1.SessionID
.Compose
.AttachmentPathName = "Папка с аттачем"
.AttachmentName = "Файл-аттач"
'аттач обязателен
.RecipAddress = "e-mail@domain.com"
.MsgSubject = "Тема"
.MsgNoteText = "Текст сообщения"
.Send 0
End With
Exit Sub
End If
mailerr:
MsgBox "Error " & Err.Description
End Sub

Только если у тебя стоит Microsoft Office Outlook то в течении пяти секунд он тебе не будет давать его послать - мол, это может быть вирус и т.п.

[Max!]

Но там открывается типо Outlook Express Wizard тогда жмем пару раз next и тогда сообщение отпровляется, а если так ввел текст нажал кнопку и сообщение ушло без ишних акон и Wizard'av

[EvilCoder]

Тут и отправка и проверка.