Как отправить E-Mail С вложением с помощью Outlook Express

[iwmorozov]

Как запустить почтовую программу, используемую по умолчанию, и отправить в ней письмо с вложением?

[hclubmk]

Как запустить почтовую программу, используемую по умолчанию, и отправить в ней письмо с вложением?

Обязательно запускать?

[iwmorozov]

Да, обязательно.

[Pavel_2100]

Отправлять в (vb6) как-то так :
Private Sub Label1_Click()
Dim Success&
Success = ShellExecute(Me.hwnd, vbNullString, "mailto:pavel_2100@mail.ru", vbNullString, "C:\", SW_SHOWNORMAL)
End Sub
А про вложение не знаю...

[SLIM]

Можно и с вложениями. Читайте справку

[Хакер]

Pavel_2100, не пиши полную ерунду.

[SLIM]

Pavel_2100, не пиши полную ерунду.

Если Outlook - почтовый клиент по умолчанию, то он запустится. Поэтому частично он прав.

[Хакер]

А ты у нас, что, его личный адвокат?

Написанное — ерунда, потому что оно не обеспечивает ни просто отправки, ни вложений тем более. И потому что это глупый копипаст, а автор постинга даже с трудом понимает написанное. Потому что mailto — это спецпротокол, чтобы можно было что-то указать в href-е ссылки для того, чтобы открылось мэил-менеджер-окно, приглашающая написать письмо по указанному адресу. Он не предназначен, для того, чтобы слать, он предзназначен, чтобы предложить пользователю слать, а потому он никогда не обеспечит запрошенного (отправки со вложениями).

А вот ShellExecute + eml файл — уже несколько другое дело, но Pavel_2100 не знает попросту не встречал готовый кусок кода для этого. Готовый кусок кода для mailto, совершенно очевидно, встречал.

[SLIM]

А ты у нас, что, его личный адвокат?

Нет

Написанное — ерунда, потому что оно не обеспечивает ни просто отправки, ни вложений тем более. И потому что это глупый копипаст, а автор постинга даже с трудом понимает написанное. Потому что mailto — это спецпротокол, чтобы можно было что-то указать в href-е ссылки для того, чтобы открылось мэил-менеджер-окно, приглашающая написать письмо по указанному адресу. Он не предназначен, для того, чтобы слать, он предзназначен, чтобы предложить пользователю слать, а потому он никогда не обеспечит запрошенного (отправки со вложениями).

Ты прав, но мне логично кажется, что смысл запускать клиента, если он не будет нужен. Т.е. если нужна тупо отправка, то и показывать само письмо не нужно. Но он потребовал чтобы клиент был запущен. Зачем? А нужен он ему для того чтобы редактировать письмо. А отправить как-нибудь вручную.

Автор, скажи, тебе что нужно, чтобы отправлялось, как думает телепат, или чтобы юзер мог редактировать в клиенте письмо, как думаю я?

[iwmorozov]

Мне нужно, чтобы юзер смог редактировать текст сообщения

[VVitafresh]

Посмотри MAPISession и MAPIMessages

[iwmorozov]

Пробовал, но вложения почему-то не добавляются

[VVitafresh]

Разбирайся, как-то так:

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

Public Sub SendEmail()
    Const SESSION_SIGNON = 1
    Const MESSAGE_COMPOSE = 6
    Const ATTACHTYPE_DATA = 0
    Const RECIPTYPE_TO = 1
    Const RECIPTYPE_CC = 2
    Const MESSAGE_RESOLVENAME = 13
    Const MESSAGE_SEND = 3
    Const SESSION_SIGNOFF = 2

    On Error GoTo ErrorHandler   

    MAPISession.SignOn
    MAPIMessages.SessionID = MAPISession.SessionID
    MAPIMessages.Compose
    MAPIMessages.MsgSubject = sMessageSubject
    MAPIMessages.MsgNoteText = sMessageBody
    MAPIMessages.RecipIndex = 0            'First recipient
    MAPIMessages.RecipType = RECIPTYPE_TO
    MAPIMessages.RecipDisplayName = sToEmailAddress
     
    MAPIMessages.AttachmentType = 0
    MAPIMessages.AttachmentIndex = 0
    MAPIMessages.AttachmentPathName = sAttachName   'Path to attachment
    MAPIMessages.AttachmentPosition = 0
     

    'ask to commit
    MAPIMessages.Send True
    'or send auto
    'MAPIMessages.Action = MESSAGE_SEND
     
    'Close MAPI mail session:
    MAPISession.Action = SESSION_SIGNOFF

'    MAPISession.SignOff

Exit Sub
ErrorHandler:
    Select Case Err.Number
    Case 32001
        'User canceled mail

    Case 32003
        'Login has failed

    Case 32053
        'MAPI Failure: valid session ID does not exist

    Case 32011
        'Attachment not found

    Case Else
        'Unknown error

    End Select
End Sub

[iwmorozov]

Большое спасибо, всё работает.

[NashRus]

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

Спасибо.

[VVitafresh]

Вопрос звучал:

Как запустить почтовую программу, используемую по умолчанию, и отправить в ней письмо с вложением?

Учетная запись настраивается в почтовой программе.

[NashRus]

Это я вижу. Там же настраивается формат сообщений.
Через MAPI есть возможность задать эти параметры?
Нет

[VVitafresh]

Тебе, наверное, нужно что-то типа этого:
Sendmail Class

[NashRus]

Да нет, нативная отправка меня не волнует, это все есть.
Мне надо, чтобы письма в папке "Отправленные" оказались.
В принципе это только для меня и я руками могу переставлять.
Спасиб.