ОТПРАВИТЬ НЕСКОЛЬКО ФАЙЛОВ ПО OUTLOOK НАХОДЯСЬ В EXCELE
Здравствуйте!
КАК ОТПРАВИТЬ НЕСКОЛЬКО ФАЙЛОВ ПО OUTLOOK НАХОДЯСЬ В EXCELE, при этом не открывая их - отправить по списку рассылки.
и подтверждения об их прочтении, чтобы шли другому пользователю, который смотрит, все ли прочли данные сообщения.
Спасибо!
КАК ОТПРАВИТЬ НЕСКОЛЬКО ФАЙЛОВ ПО OUTLOOK НАХОДЯСЬ В EXCELE, при этом не открывая их - отправить по списку рассылки.
и подтверждения об их прочтении, чтобы шли другому пользователю, который смотрит, все ли прочли данные сообщения.
Спасибо!
как отправить фаилы я уже нашел
Set xlApp = CreateObject("Outlook.Application")
' создаем письмо
Set myItem = xlApp.CreateItem(0)
myItem.To = "получатель из utlook№1"
myItem.To = "получатель из utlook№2"
myItem.Subject = "Приветик! Автомат. письмо, позвони в филиал"
myItem.Body = "Тут в письме валяется файл."
' а теперь просоединяем файл
Set myAttachments = myItem.Attachments
myAttachments.Add "d:\report_\333.xls"
myAttachments.Add "d:\report_\111.txt"
' и отправлем письмо
myItem.Send
Но как его отправить так, чтобы подтверждения о прочтении пришли другому!!!!
Очень надо!!! помогите!!!!!
Set xlApp = CreateObject("Outlook.Application")
' создаем письмо
Set myItem = xlApp.CreateItem(0)
myItem.To = "получатель из utlook№1"
myItem.To = "получатель из utlook№2"
myItem.Subject = "Приветик! Автомат. письмо, позвони в филиал"
myItem.Body = "Тут в письме валяется файл."
' а теперь просоединяем файл
Set myAttachments = myItem.Attachments
myAttachments.Add "d:\report_\333.xls"
myAttachments.Add "d:\report_\111.txt"
' и отправлем письмо
myItem.Send
Но как его отправить так, чтобы подтверждения о прочтении пришли другому!!!!
Очень надо!!! помогите!!!!!