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

Общайтесь со знакомыми и друзьями в нашей группе в Контакте.

Новости » Вышел Songbird 1.0 » 22-07-2009 15:20:25

скажите, а под win98 запустить можно?

Разработка » Автоматическое заполнение полей сообщения » 28-01-2008 09:22:19

спасибо, что перенесли в более подходящее место.

но проблема еще не решена. помогите

Разработка » Автоматическое заполнение полей сообщения » 24-01-2008 10:53:48

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

hstar - это имя файла - например text
exp_pdf - это где он лежит - напимер d:/text.pdf

[code]  Dim sText As String
  Dim sAddedText As String
  txtSubject = hstar & ".pdf" ' тема сообщения
  txtBody = "http://m3/adv/" & hstar & ".pdf" ' текст сообщения
  txtMainAddresses = "adv@m3" ' адрес
  txtAttachement = exp_pdf ' вложения
 
  If Len(txtMainAddresses) Then _
        sText = txtMainAddresses
  If Len(txtSubject) Then _
       sAddedText = sAddedText & "&Subject=" & txtSubject
  If Len(txtBody) Then _
       sAddedText = sAddedText & "&Body=" & txtBody
  If Len(txtAttachement) Then _
       sAddedText = sAddedText & "&AddAttachement=" & txtAttachement
  sText = "mailto:" & sText
  If Len(sAddedText) <> 0 Then Mid$(sAddedText, 1, 1) = "?"
  sText = sText & sAddedText

  If Len(sText) Then _
    Call ShellExecute(hwnd, "open", sText, _
     

Thunderbird » макрос на VBA для отправки файла через Thunderbird » 28-11-2006 09:19:09

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

Thunderbird » макрос на VBA для отправки файла через Thunderbird » 27-11-2006 11:13:13

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

Работаю в 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
'можно отобразить письмо на экране
'     my

Board footer

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