powered by simpleCommunicator - 2.0.36     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как послать письмо по электронке?
5 сообщений из 5, страница 1 из 1
как послать письмо по электронке?
    #32053939
lesha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет всем.

Как мне из VB проекта пслать птсьмецо на конкретный e-mail?

конструкция типа :

Dim objSession As Object
Set objSession = CreateObject("MAPI.Session")
objSession.Logon "outlook", , False, flase

Set objMesage = objSession.Inbox.Messages.Add
objMesage.Subject = "1111"
objMesage.Text = "2222"

objMesage.Recipients.Add "alexsvk@mail.ru", , ActMsgTo
objMesage.Recipients.Resolve

objMesage.Send


работает, но частично...письма остаются валятся в Inbox Outlook-а, до тех пор пока не запустишь MS Outlook, и не надавишь кнопку "Отправить/получить"....

как победить это безобрание?? как заставить их отправлятся??

С уважением - Алексей
...
Рейтинг: 0 / 0
как послать письмо по электронке?
    #32056421
Фотография netfrog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
?????????? а напрямую почтовику не устроит? или обязательно через аутглюк?
...
Рейтинг: 0 / 0
как послать письмо по электронке?
    #32059781
vap
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может пощелкать в настройках Оутлука, чтобы сразу отправлял почту ?
...
Рейтинг: 0 / 0
как послать письмо по электронке?
    #32063306
dima_k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
используй микрософт мапи контролс 6.0 вот и нет проблемы :)
With MAPIMessages
MAPISession.SignOn
.SessionID = MAPISession.SessionID
.MsgIndex = -1
.Compose
.AttachmentIndex = 0
.AttachmentPathName = PathFile
.MsgSubject = "Âûãðóçêà íàêëàäíûõ îò " & Date
.RecipAddress = sAdres
.Send
MAPISession.SignOff
End With
...
Рейтинг: 0 / 0
как послать письмо по электронке?
    #32081939
DAR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DAR
Гость
Попробуй вот так....у меня работает

Private Sub Sen()
Dim out As Object
Set out = CreateObject("CDO.Message")
out.Textbody = "bla bla bla"
out.From = "От меня "
out.To = "ddd@ddd.ru"
'out.CC =
out.Subject = "Subject"
out.Send
Exit Sub
End Sub
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как послать письмо по электронке?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]