Формирование письма через Mozilla

Jenya1980

Пользователь

Сообщений: 266 Регистрация: 15.05.2013

05.09.2020 16:12:03

Добрый день
Почему в данном скрипте не приаттачивается файл?

Код

Private Sub SendMailThunder_Click()
Dim file As String
file = "C:\123.xlsx"
strCommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe"
strCommand = strCommand & " -compose " & "mailto:" & "?"
strCommand = strCommand & "subject=" & "&"
strCommand = strCommand & "body=" & "&"
strCommand = strCommand & "attachment=file:///" & file

Call Shell(strCommand, vbNormalFocus)

End Sub

sokol92

Пользователь

Сообщений: 4660 Регистрация: 10.09.2017

05.09.2020 18:40:47

Добрый день. Ответ очевиден - нужно очень внимательно читать документацию.

Код

Option Explicit
Private Sub SendMailThunder_Click()
  Dim file As String, mailto As String, subject As String, strCommand As String
  file = "C:\Temp\123.xlsx"
  subject = "Формирование письма через Mozilla"
  mailto = "Jenya1980@example.com"
  strCommand = "C:\Program Files (x86)\Mozilla Thunderbird\Thunderbird.exe -compose """ & _
     "to=" & mailto & ",subject='" & subject & "',attachment='file:///" & Replace(file, "\", "/") & "'"""

  Shell strCommand
End Sub

В последних версиях Thunderbird в параметре attachment можно указывать указывать имя файла, как в операционной системе (без префикса file:/// и перекодирования слеша).

Изменено: sokol92 - 05.09.2020 19:13:51

Владимир

Jenya1980 Пользователь Сообщений: 266 Регистрация: 15.05.2013	#3 07.09.2020 22:13:22 Спасибо. Все супер Изменено: Jenya1980 - 07.09.2020 22:31:08