Автоматическое заполнение полей сообщения

izrukvruki · №1

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

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

Выделить код

Код:

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, _
     vbNullString, vbNullString, 1)

Все поля вроде заполняются корректно, а вот ПРИКРЕПИТЬ файлы не получается. Подскажите как правильно это сделать? Какое имя у этого поля (я вот пробовал AddAttachement, Attachement, Attache...)

Еще не знаю, как сделать так чтоб письмо создавалось и автоматически бы отправлялось (чтоб не нажимать кнопку отправить). Можно ли вообще сделать, чтоб сообщение даже на экран НЕ отображалось - нажал кнопку и сообщение ушло.

Спасибо...

Unghost · №2

==> Разработка

izrukvruki · №3

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

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

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

№124-01-2008 10:53:48

Автоматическое заполнение полей сообщения

Код:

№226-01-2008 00:30:56

Re: Автоматическое заполнение полей сообщения

№328-01-2008 09:22:19

Re: Автоматическое заполнение полей сообщения

Board footer