Sub testmail()
Dim oMyMail
Set oMyMail = CreateObject("CDO.Message")
oMyMail.To = "mymail@yandex.ru"
oMyMail.From = "Administrator@test.com"
oMyMail.Subject = "Hello from CDO"
oMyMail.TextBody = "Our letter"
oMyMail.AddAttachment "d:\Documenty\test.txt"
[COLOR="DarkRed"]oMyMail.Send[/COLOR]
End Sub
Надо ли исп-ть VBA для авто-отправки письма?
Примерно раз в день приходится отправлять письмо на один и тот же адрес с аттачментом в 1-15 Мб. Я это делаю через яндекс-почту. Там видно как прикрепляется файл и после прикрепления нажимаю "отправить". Но надоедает вводить один и тот же адрес, открывать диалоговое окно выбора файла для вложения в письмо и вообще открывать web-страницу яндекс-почты. Хочется просто открыть диалог с путем к вложению и нажать ОК.
Для решения этой задачи может пригодиться VBA? (мне с ним более-менее привычно работать) или нужен Java или еще что-то? Т.е. чем (в чем) быстрее и проще решать проблему? Может нужен еще какой-то софт типа "внутреннего" почтового сервера? (Аутлюк, ессно, установлен)
Спасибо.
p.s.
Вот нашел такой примерчик:
В последней команде останов с сообщением:
[COLOR="DarkRed"]Недопустимое значение конфигурации ""SendUsing"[/COLOR]
Что это значит? И где его можно сконфигурировать?
Для решения этой задачи может пригодиться VBA? (мне с ним более-менее привычно работать) или нужен Java или еще что-то? Т.е. чем (в чем) быстрее и проще решать проблему? Может нужен еще какой-то софт типа "внутреннего" почтового сервера? (Аутлюк, ессно, установлен)
Спасибо.
p.s.
Вот нашел такой примерчик:
Код:
В последней команде останов с сообщением:
[COLOR="DarkRed"]Недопустимое значение конфигурации ""SendUsing"[/COLOR]
Что это значит? И где его можно сконфигурировать?
У меня было что-то похожее когда у компьютера было имя, состоящие из кириллицы (Евгений-ПК например) попробуй изменить в свойствах компьютера: win+pause/break.
Кстати, лучше тот же код поместить в vbs файл, и места будет меньше занимать и запускается одним щелчком.
Кстати, лучше тот же код поместить в vbs файл, и места будет меньше занимать и запускается одним щелчком.
Чтобы не было строки "Недопустимое значение конфигурации ""SendUsing",
надо было приписать такие параметры (нарыл в инете):
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = ...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = ...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ..
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = ...
objEmail.Configuration.Fields.Update
Я счастлифф!
p.s. Да, спасибо, все записал в vbs - стало коротко и ясно.
надо было приписать такие параметры (нарыл в инете):
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = ...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = ...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = ..
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ...
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = ...
objEmail.Configuration.Fields.Update
Я счастлифф!
p.s. Да, спасибо, все записал в vbs - стало коротко и ясно.