Добавлено: Пн Май 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).
'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'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 об успешной отправке), а хотелось бы как-то показать, что выполняется отправка почты. Как это сделать?
Добавлено: Вт Май 21, 2013 7:37 am Заголовок сообщения: Re: Индикатор прогресса при отправке почты
dl_pv писал(а):
Нужен совет. Сделал в отчете кнопку, которая создает из отчета XLS файл и отправляет его по почте с помощью CDO
Проблема в том, что при отправке почты пользователь не видит ничего, кроме отчета (через какое-то время выскакивает MsgBox об успешной отправке), а хотелось бы как-то показать, что выполняется отправка почты. Как это сделать?
1. Использовать Meter. Шаги вручную устанавливать
2. использовать htmlDialog для вывода сообщений о прохождении этапов отправки.
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах