excel Отправить письмо с вложением без внешнего вида - PullRequest
Новая
       11

excel Отправить письмо с вложением без внешнего вида

0 голосов
/ 05 января 2019

Я борюсь со случаем, как (с помощью кнопки) добавить файл Excel (в котором эта кнопка) в качестве вложения в электронное письмо, используя программу электронной почты по умолчанию в Windows (не Outlook)

Пока я нашел это 

    Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub send_mail()

   Dim objMail As String
    Dim oMailSubj, oMailTo, oMailBody, oMailAttach As String

    oMailSubj = "subject"
    oMailTo = "adress@adress.com"
    oMailBody = "BLAH BLAH!!!!"

    objMail = "mailto:" & oMailTo & "?subject=" & oMailSubj & "&body=" & oMailBody

    ShellExecute 0, vbNullString, objMail, vbNullString, vbNullString, vbNormalFocus

End Sub

Это работает очень хорошо, и это то, что я ожидаю.

Последнее, что нужно сохранить файл и прикрепить его к электронной почте.

Пока что не могу найти решение.

Заранее благодарю за помощь.

...