Как написать макрос для mail

[qazilias]

Здравствуйте!
Столкнулся с необходимостью, создание макроса, но не имею достаточно знаний в этой сфере, прошу помощи и поддержки)

Следующая потребность: после заполнение листа таблиц в OpenOffice нужно нажатием на отдельную кнопочку "Отправить" сохранить написанное и отправить на емейл ua43000@gmail.com, пароль к ниму ******.
Использую для писем службу The Bat/ Операцыонная система виндовс7 проф.

Спасибо всем кто откликнется!))

[doober]

В последнее время работаю на гугль
Отправка почты из Excel при помощи TheBAT!

[qazilias]

Сообщение от doober

В последнее время работаю на гугль
Отправка почты из Excel при помощи TheBAT!

Ок, спс!
А подскажите видел в одном топике как вы помогали сделать тоже но без почтового агента TheBat, или любого другого..
К чему пришли в логическом завершении?

[EducatedFool]

К чему пришли в логическом завершении?

наверное, к этому:
http://excelvba.ru/code/CDO

Пользуйтесь поиском - там есть ответы на все вопросы.

(добавлено позже - может, кому пригодится)

Посмотрите самый простой способ, как организовать отправку почты (рассылку писем)
(с использованием программы заполнения документов по шаблонам, с последующей отправке по почте)

В программе есть возможность формировать письма по шаблону (с подстановкой данных из таблицы Excel),
прикреплять сформированные документы и файлы из выбранной папки, и много других возможностей.

[doober]

PS: все пути ведут в Рим

[qazilias]

Сообщение от EducatedFool

наверное, к этому:
http://excelvba.ru/code/CDO

Пользуйтесь поиском - там есть ответы на все вопросы.

плохо что у меня виндовс7 и я не понимаю как настроить библиотеку CDO =(

[doober]

Проблем не должно быть.
буквально на этой неделе сделал подобный макрос на отправку через gmail
у клиента W7 да еще и Х64.все работает без проблем.

Посмотрите на эти фрагменты кода

 SaveSetting Application.Name, "mail", "smtpserver", "smtp.gmail.com" 

'+++++++++++++++++++++++++++++++++++++++++++++++++++++=

     Set cdoConfig = CreateObject("CDO.Configuration")
      
     With cdoConfig.Fields
     .Item(cdoConfigURL & "sendusing") = 2
     .Item(cdoConfigURL & "smtpauthenticate") = 1
     .Item(cdoConfigURL & "smtpserver") = SMTPserver
     .Item(cdoConfigURL & "sendusername") = sendusername
     .Item(cdoConfigURL & "sendpassword") = sendpassword
     ' для отправки почты с аккаунта @gmail.com
    .Item(cdoConfigURL & "smtpserverport") = 465 'порт для SSL: 465
    .Item(cdoConfigURL & "smtpusessl") = 1  'использовать аутентификацию: да
    .Update
End With

[qazilias]

Ок нифига не получаеться, сори но мне тежело в этом розобратся.

У меня есть вот такой макрос который у меня на опенофисе роботает:
sub Mail
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Fra me
dispatcher = createUnoService("com.sun.star.fram e.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document , ".uno:Save", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document , ".uno:SendMail", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$C$12"

dispatcher.executeDispatch(document , ".uno:GoToCell", "", 0, args3())

end sub

Скажыте как или сразу исправте его так чтобы получилось послать мейл на почтовый ящик ***@gmail.com
Поскольку при таком варианте выскакивает почтовый помошник и ждьо ввода адреса и т.д.
Башка не понимает что к чему =(

[EducatedFool]

Мы здесь пишем макросы для Microsoft Excel
Они не совместимы с вашими макросами для OpenOffice

Обратитесь на форум по OpenOffice - там вам подскажут, как решить проблему.

[qazilias]

Сообщение от EducatedFool

Мы здесь пишем макросы для Microsoft Excel
Они не совместимы с вашими макросами для OpenOffice

Обратитесь на форум по OpenOffice - там вам подскажут, как решить проблему.

вот я лол. сижу голову ламаю.. от чегото думал что они совметимы(

Ок, спасибо всем за ваше время.