Меню
Что нового?
От:
Фильтры

автоматическое нажатие кнопки

  • Автор темы cowboy
  • Дата начала
C

cowboy

New member
cowboy написал(а):
Massaraksh написал(а):
cowboy написал(а):
...я сам програмист...
Нажмите для раскрытия...
Не говори так. Не надо.
Нажмите для раскрытия...
ну я хотел сказать что учился на него :)
Нажмите для раскрытия...
а то что у меня с экселем беда еще ничего не значит..Для того и существует общение
 
M

Massaraksh

New member
cowboy написал(а):
Massaraksh написал(а):
cowboy написал(а):
..кто нить поможет может с отправкой сообщение на мыло?
Нажмите для раскрытия...
Всё просто: вызываешь Outlook как сервер приложений и работаешь с ним.
Нажмите для раскрытия...
может покажешь где читануть про это?
Нажмите для раскрытия...
http://www.delphikingdom.com - в поиске найдешь MAPI Outlook. Там - как работать с ним через Delphi. Через VB - аналогично.
P.S. Вежливые люди обычно благодарят за науку.
 
C

cowboy

New member
Massaraksh написал(а):
cowboy написал(а):
Massaraksh написал(а):
cowboy написал(а):
..кто нить поможет может с отправкой сообщение на мыло?
Нажмите для раскрытия...
Всё просто: вызываешь Outlook как сервер приложений и работаешь с ним.
Нажмите для раскрытия...
может покажешь где читануть про это?
Нажмите для раскрытия...
http://www.delphikingdom.com - в поиске найдешь MAPI Outlook. Там - как работать с ним через Delphi. Через VB - аналогично.
P.S. Вежливые люди обычно благодарят за науку.
Нажмите для раскрытия...
извини..но помог ты мне только щас...
Спасибо тебе за это
 
V

vint

New member
В редакторе VB, Tools->References = Ставишь галку напротив "Microsoft Outlook Object Library"

Вот код
Код: 
Set olApp = New Outlook.Application
Set olNewMail = olApp.CreateItem(olMailItem)

With olNewMail
' Адрес
.Recipients.Add "[email protected]"
' Тема письма
.Subject = "Subject"
' сообщение
.Body = "Body"
.Send
End With

Set olNewMail = Nothing
Set olApp = Nothing
 
C

cowboy

New member
vint написал(а):
В редакторе VB, Tools->References = Ставишь галку напротив "Microsoft Outlook Object Library"

Вот код
Код: 
Set olApp = New Outlook.Application
Set olNewMail = olApp.CreateItem(olMailItem)

With olNewMail
' Адрес
.Recipients.Add "[email protected]"
' Тема письма
.Subject = "Subject"
' сообщение
.Body = "Body"
.Send
End With

Set olNewMail = Nothing
Set olApp = Nothing
Нажмите для раскрытия...
спасибо..но если я правильно понял то это запускает сам оутлук...а мне бы желательно что бы сразу рассылка шла ни три адреса..
да..действительно...в оутлуке лежат все письмо которые я отсылал..
а как настроить автомат??
 
V

vint

New member
Тогда будем использовать протокол SMTP и какойнибудь удаленный SMTP сервер. (например mail.ru, для этого нужно иметь на mail.ru ящик)

В Tools->References ставим галку "Microsoft CDO for Windows 2000"

Код: 
Const cdoAnonymous = 0       ' Do not authenticate
Const cdoBasic = 1           ' Basic (clear-text) authentication
Const cdoNTLM = 2            ' NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Simple plain text CDO example"
' От кого будем отправлять, это реально существующий ящик
objMessage.From = "[email protected]"
' Кому
objMessage.To = "[email protected], [email][email protected][/email], [email][email protected][/email]"
objMessage.TextBody = "This is a test (sent using SMTP authentication)"
 
' Configure the send to use another server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Set the name or IP of the remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"

' Set the type of authentication to use, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

' указываем логин для удаленного SMTP сервера, должен совпадать с язщиком который указали в objMessage.From
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youmail"

' устанавливаем пароль 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

' Set the server port (usually 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Set if the connection should use SSL (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

' Set the connection timeout in seconds
' (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' Save the new configuration settings
objMessage.Configuration.Fields.Update

objMessage.Send
Вот зесь http://rsdn.ru/article/qna/inet/email.xml можно прочитать
 
C

cowboy

New member
vint написал(а):
Тогда будем использовать протокол SMTP и какойнибудь удаленный SMTP сервер. (например mail.ru, для этого нужно иметь на mail.ru ящик)

В Tools->References ставим галку "Microsoft CDO for Windows 2000"

Код: 
Const cdoAnonymous = 0       ' Do not authenticate
Const cdoBasic = 1           ' Basic (clear-text) authentication
Const cdoNTLM = 2            ' NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Simple plain text CDO example"
' От кого будем отправлять, это реально существующий ящик
objMessage.From = "[email protected]"
' Кому
objMessage.To = "[email protected], [email][email protected][/email], [email][email protected][/email]"
objMessage.TextBody = "This is a test (sent using SMTP authentication)"
 
' Configure the send to use another server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Set the name or IP of the remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"

' Set the type of authentication to use, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

' указываем логин для удаленного SMTP сервера, должен совпадать с язщиком который указали в objMessage.From
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youmail"

' устанавливаем пароль 
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

' Set the server port (usually 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Set if the connection should use SSL (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

' Set the connection timeout in seconds
' (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' Save the new configuration settings
objMessage.Configuration.Fields.Update

objMessage.Send
Вот зесь http://rsdn.ru/article/qna/inet/email.xml можно прочитать
Нажмите для раскрытия...
выводит ошибку...не удалось подключиться транспорту к серверу :( серверу
 
V

vint

New member
Код отклика 440 указывает, что рассылка запрещена по причинам, зависящим от инсталляции.

Ну видимо проблема в почтовом сервере, у меня на mail.ru все работает. ;)

Попробуй одному адресату отослать.
 
C

cowboy

New member
А МОЖЕТ БЫ что у меня библиотеки еще какие нить подключены лишние???просто мне на других форумах давали примеры и приходилось еще какие то библиотеки подключать....
а туда пароль имою почту вместо соответствующих слов надо вставлять?
.....
ХМММ..ТЕПЕРЬ все сообщения пропалииз мыла :(((...что за фокус....???хорошо хоть мыло старое было
 
V

vint

New member
cowboy написал(а):
А МОЖЕТ БЫ что у меня библиотеки еще какие нить подключены лишние???просто мне на других форумах давали примеры и приходилось еще какие то библиотеки подключать....
Нажмите для раскрытия...
В Tools->References ставим галку "Microsoft CDO for Windows 2000"

cowboy написал(а):
а туда пароль имою почту вместо соответствующих слов надо вставлять?
Нажмите для раскрытия...
Естественно, логин и пароль реально существующего ящика.
 
C

cowboy

New member
вот мой код..может я что не так прописал?
Private Sub CommandButton1_Click()
Const cdoAnonymous = 0 ' Do not authenticate
Const cdoBasic = 1 ' Basic (clear-text) authentication
Const cdoNTLM = 2 ' NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Simple plain text CDO example"
' От кого будем отправлять, это реально существующий ящик
objMessage.From = "[email protected]"
' Кому
objMessage.To = "[email protected]"
objMessage.TextBody = "This is a test (sent using SMTP authentication)"

' Configure the send to use another server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Set the name or IP of the remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"

' Set the type of authentication to use, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

' указываем логин для удаленного SMTP сервера, должен совпадать с язщиком который указали в objMessage.From
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"

' устанавливаем пароль
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "мой пароль"

' Set the server port (usually 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

' Set if the connection should use SSL (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

' Set the connection timeout in seconds
' (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

' Save the new configuration settings
objMessage.Configuration.Fields.Update

objMessage.Send


End Sub
 
V

vint

New member
Вот это
Код: 
objMessage.From 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
заменить на это
Код: 
objMessage.From 
objMessage.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "jenekcowboy"
"[email protected]" =>"jenekcowboy"
 
C

cowboy

New member
блин....не работает...собака...та же ошибка...
а может ли это быть из-за того что у нас в организации сис админы ограничили доступ?
 
Your email address will not be publicly visible. We will only use it to contact you to confirm your post.
Сверху