Полезная информация

Пользователи не любят читать документацию. Станьте оригинальным, будьте не как все. Ознакомьтесь с нашей базой знаний.

№127-11-2006 11:13:13

izrukvruki
Участник
 
Группа: Members
Зарегистрирован: 27-11-2006
Сообщений: 5

макрос на VBA для отправки файла через Thunderbird

Помогите пожалуста, очень надо, в программирование не особо силен. Задача вот в чем

Работаю в CorelDraw10,
Очень часто приходится файлы (формата PDF сделанного из корела) отправлять по почте внутри локальной сети
Суть в следующем: чтоб нажимал кнопку (предварительные действия я сам напишу - а как к Thunderbird обратиться не знаю) и файл "D:\14117064.pdf" отправлялся по адресу "ML@ira" с темой "На согласование" и текстовым сообщением "Высылаю вам файл".

Раньше в Outlooke все работало так:
set obj = CreateObject("Outlook.Application")
set myItem = obj.CreateItem(0)
set myAttachments = myItem.Attachments
'файлы вложения
myAttachments.Add  "C:\usr\file1.txt", 1, 1
'и так далее можно много файлов указать

    myItem.Subject = "тема сообщения"
    myItem.Body ="текст сообщения: типа Высылаем вам usr файлы."
    myItem.To  ="misha@rif.ru"
'уведомлять о доставке
    myItem.OriginatorDeliveryReportRequested=1
    myItem.ReadReceiptRequested=1
'можно отобразить письмо на экране
'     myItem.display
'собственно отправка
    myItem.send
set obj = nothing
set myItem = nothing
set myAttachments = nothing

Спасибо

Отсутствует

 

№227-11-2006 19:06:52

floodway
Участник
 
Группа: Members
Зарегистрирован: 17-03-2006
Сообщений: 46

Re: макрос на VBA для отправки файла через Thunderbird

AFAIK, Mozilla* не реализована через COM ( интим не предлагает :) ).
А чем не нравится Outlook, тем более если все работает и так?

Отсутствует

 

№328-11-2006 09:19:09

izrukvruki
Участник
 
Группа: Members
Зарегистрирован: 27-11-2006
Сообщений: 5

Re: макрос на VBA для отправки файла через Thunderbird

Outlook нету. Раньше стоял, теперь поставили Птицу. Приходиться много лишних телодвижений делать...

Отсутствует

 

Board footer

Powered by PunBB
Modified by Mozilla Russia
Copyright © 2004–2020 Mozilla Russia GitHub mark
Язык отображения форума: [Русский] [English]