Страницы: 1
скажите, а под win98 запустить можно?
спасибо, что перенесли в более подходящее место.
но проблема еще не решена. помогите
Помогите пожалуста, я создал в 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, _
Outlook нету. Раньше стоял, теперь поставили Птицу. Приходиться много лишних телодвижений делать...
Помогите пожалуста, очень надо, в программирование не особо силен. Задача вот в чем
Работаю в 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
Страницы: 1