Как присоеденить файл к письму.

[sQx]

Как создать новое письмо и присоеденить к нему файл.

Нужно просто что бы запустился почтовый клиент по-умолчанию. Создалось новое письмо и присоеденилосля txt файлик.

[hCORe]

Как к стандартному mail-клиенту отправить данные (кроме как через MAPI) - не знаю. А вот с MS Outlook 95-XP взаимодействовать можно вполне с помощью автоматизации OLE (как с ранним, так и с поздним связыванием).

Вот этот код - самый простой - демонстрирует раннее связывание в VB + посылку сообщения через автоматизацию MS Outlook. Нужна библиотека "Microsoft Outlook x.x Object Library"

Код: Выделить всё

   
Private Sub Form_Load()
    Dim xi As Outlook.Application
    Set xi = New Outlook.Application
    Dim rx As Outlook.MailItem
    rx = xi.CreateItem(olMailItem)
    rx.Subject = "Text Message" ' тема
    rx.Recipients.Add "admin@vbstreets.ru" 'добавь столько адресатов, сколько нужно
    rx.Body = "Put Text Here" 'напиши текст письма
    rx.Attachments.Add "my smiley.bmp", , , "A STRONG VIRUS.EXE" 'добавь приложения
    rx.Save 'сохранить
    rx.Send 'послать
    Set xi = Nothing 'чистка
End Sub

[sQx]

А не могли бы вы написать как сделать в Netscape