Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как послать письмо по электронке? / 5 сообщений из 5, страница 1 из 1
29.09.2002, 16:13
    #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
08.10.2002, 16:45
    #32056421
netfrog
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как послать письмо по электронке?
?????????? а напрямую почтовику не устроит? или обязательно через аутглюк?
...
Рейтинг: 0 / 0
18.10.2002, 15:36
    #32059781
vap
vap
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как послать письмо по электронке?
Может пощелкать в настройках Оутлука, чтобы сразу отправлял почту ?
...
Рейтинг: 0 / 0
30.10.2002, 18:04
    #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
19.12.2002, 15:35
    #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
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / как послать письмо по электронке? / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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