| Вопрос: Не отправляется почта из VB | Добавлено: 11.02.05 16:18 |
Автор вопроса:  someone | Web-сайт: 123
|
|
Subj
скачал пример Д. Беляева Msg, ничего не отправляет =( |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  AlexF Вопросов: 20 Ответов: 113 |
Профиль | | #1 | Добавлено: 11.02.05 17:13 |
|
ispol'zuyu takoj vot kod dlia otpravki.
'using the Active Messaging: Olemsg32.dll Private Sub EmailMessage()  im oSession As MAPI.Session
im oMessage As MAPI.message
im oRecipient As MAPI.Recipient
Set oSession = CreateObject("MAPI.Session" 
oSession.Logon 'this will promt for a profile. This can be avoided by including the profile name Set oMessage = oSession.Outbox.Messages.Add With oMessage .Subject = "email from " & App.Title .Text = "This is a test message" .Attachments.Add "c:\yourFile.txt" Set oRecipient = oMessage.Recipients.Add oRecipient.Name = "xxxxx@hotmail.com" oRecipient.Resolve .Update .Send End With oSession.Logoff Set oSession = Nothing Set oMessage = Nothing Set oRecipient = Nothing End Sub |
||
|
Номер ответа: 2 Автор ответа: someone Вопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #2 | Добавлено: 11.02.05 19:45 |
| да я вообще-то с этим еще не работал, объясни как подключить к проекту MAPI? | ||
|
Номер ответа: 3 Автор ответа: someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #3 | Добавлено: 11.02.05 19:46 |
| Olemsg32.dll не нашел, где его можно скачать? | ||
|
Номер ответа: 4 Автор ответа:  AlexFВопросов: 20 Ответов: 113 |
Профиль | | #4 | Добавлено: 11.02.05 20:02 |
| ftp://212.192.116.39/pub/Apps/Office/Office.97r/OFFICE/WMS/WINNT/ | ||
|
Номер ответа: 5 Автор ответа: LISВопросов: 7 Ответов: 256 |
Профиль | | #5 | Добавлено: 12.02.05 06:06 |
|
1) use control MSMAPI32.OCX
2Function open_email_session() '*** open session Dim hWindow As Long If sessionOpened = False Then hWindow = FindWindow(vbNullString, "Inbox - Microsoft Outlook"
If hWindow = 0 Then hWindow = FindWindow(vbNullString, "Inbox - Microsoft Exchange"
End If On Error GoTo skip_email MAPISession1.SignOn MAPIMessages1.SessionID = MAPISession1.SessionID MAPIMessages1.MsgIndex = -1 End If Exit Function skip_email: End Function Public Function sendEmail(email As String, PONumber As String, attName As Boolean, note As String) If email <> Space(1) Then titleForm.MAPIMessages1.Compose titleForm.MAPIMessages1.RecipDisplayName = email End If titleForm.MAPIMessages1.MsgNoteText = Space(1) If note <> vbNullString Then titleForm.MAPIMessages1.MsgNoteText = Trim(note) titleForm.MAPIMessages1.MsgSubject = "PO " + PONumber + " has been created." ' Attachment If attName = True Then titleForm.MAPIMessages1.AttachmentPathName = locConst + attName + ".pdf" End If '===================================================================================================================== '*** send e-mail titleForm.MAPIMessages1.ResolveName titleForm.MAPIMessages1.Send End Function |
||
|
Номер ответа: 6 Автор ответа:  LISВопросов: 7 Ответов: 256 |
Профиль | | #6 | Добавлено: 12.02.05 06:08 |
|
Forgot function , sorry
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _  ByVal lpClassName As String, ByVal lpWindowName As Any) As Long
|
||
|
Номер ответа: 7 Автор ответа:  ComancheВопросов: 87 Ответов: 459 |
Профиль | | #7 | Добавлено: 12.02.05 14:55 |
| http://www.vbnet.ru/activex/activexdownload.asp?id=103 | ||
|
Номер ответа: 8 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #8 | Добавлено: 12.02.05 17:28 |
|
МАПИ не рулит. а не отправляет он потому...
еси адрес User@Mail.ru => smtp server: smtp.mail.ru a еси адрес User@Rambler.ru => smtp server: smtp.Rambler.ru сам маялся, пока ответ не нашел... вот! |
||
|
Номер ответа: 9 Автор ответа: someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #9 | Добавлено: 12.02.05 18:42 |
|
ну смотри - в примере Беляева:
koMy: empro@list.ru smtp: smtp.mail.ru ПРАВИЛЬНО??? |
||
|
Номер ответа: 10 Автор ответа: someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #10 | Добавлено: 12.02.05 21:04 |
|
Comanche,
Ты попал в десятку
Это то, что мне надо. Всем спасибо! |
||
|
Номер ответа: 11 Автор ответа: ComancheВопросов: 87 Ответов: 459 |
Профиль | | #11 | Добавлено: 12.02.05 21:08 |
|
Не знаю, прочитал ли ты ReadMe-файлик, поэтому вот кусок оттуда:
Контрол не поддерживает SMTP-сервера, требующие авторизации (примером такого
сервера является Email.Ru). Для поддержки таких серверов необходимо ввести два дополнительных свойства (имя и пароль авторизации), а также изменить код события WinSock1_DataArrival, чтобы передать авторизационные данные SMTP-серверу и получить и затем обработать ответ сервера. Подробные данные по спецификации "SMTP Service Extension for Authentication" можно получить по этой ссылке: http://www.faqs.org/rfcs/rfc2554.html Кроме того, следует понимать, что этот контрол - как следует из его названия - создан для работы ИМЕННО С SMTP-СЕРВЕРАМИ. Т.е. он не может работать с "HTTP Mail Provider'ом", примером которого является HotMail.Com. Т.е. универсальности этому контролу всё же не хватает... |
||
|
Номер ответа: 12 Автор ответа:  АлександрРазработчик Offline Client ICQ: 204034 Вопросов: 106 Ответов: 1919 |
Профиль | | #12 | Добавлено: 13.02.05 13:50 |
|
ну смотри - в примере Беляева:
koMy: empro@list.ru smtp: smtp.mail.ru ПРАВИЛЬНО??? Не-а...  )
@list.ru - smtp.list.ru @bk.ru - smtp.bk.ru @mail.ru - smtp.mail.ru |
||
|
Номер ответа: 13 Автор ответа: Aндрей ICQ: 259020622 Вопросов: 30 Ответов: 71 |
Профиль | | #13 | Добавлено: 24.04.05 20:24 |
|
У меня есть пример sendmail, его как-бы подправить чтобы он реально отправлял?
(можно пример на реальной почтовой службе, в которой работает) |
||
Страница: 1 |