Список форумов Акцент Акцент
официальный форум разработчика программы Акцент
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Индикатор прогресса при отправке почты

 
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.40
Предыдущая тема :: Следующая тема  
Автор Сообщение
dl_pv
Гость





СообщениеДобавлено: Пн Май 20, 2013 9:32 pm    Заголовок сообщения: Индикатор прогресса при отправке почты Ответить с цитатой

Нужен совет. Сделал в отчете кнопку, которая создает из отчета XLS файл и отправляет его по почте с помощью CDO

Код:
set WshShell = CreateObject("WScript.Shell")
'Запускаем ping и ожидаем завершения его работы
Return = WshShell.Run("ping www.google.com ", 0, true)
If Return=1 then
MsgBox"Проверьте соединение с интернетом!"
Else

Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).

Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Тема"
objMessage.From = """MyCompany"" <user>"
objMessage.To = "mybox@gmail.com"
objMessage.TextBody = "Вам письмо"
objMessage.AddAttachment " D:\Blablabla\letter.xls "

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

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

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user@gmail.com"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

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

'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

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send
'в этом месте бы прогресс-бар втулить :oops:
MsgBox"Письмо успешно отправлено!"
End if


Проблема в том, что при отправке почты пользователь не видит ничего, кроме отчета (через какое-то время выскакивает MsgBox об успешной отправке), а хотелось бы как-то показать, что выполняется отправка почты. Как это сделать?
Вернуться к началу
olimp
Site Admin


Зарегистрирован: 10.03.2005
Сообщения: 2661

СообщениеДобавлено: Вт Май 21, 2013 7:37 am    Заголовок сообщения: Re: Индикатор прогресса при отправке почты Ответить с цитатой

dl_pv писал(а):
Нужен совет. Сделал в отчете кнопку, которая создает из отчета XLS файл и отправляет его по почте с помощью CDO

Проблема в том, что при отправке почты пользователь не видит ничего, кроме отчета (через какое-то время выскакивает MsgBox об успешной отправке), а хотелось бы как-то показать, что выполняется отправка почты. Как это сделать?


1. Использовать Meter. Шаги вручную устанавливать
2. использовать htmlDialog для вывода сообщений о прохождении этапов отправки.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент 7.40 Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group