Добрый день.
Друзья, вот уже третий день не могу найти ответ на один вопрос.
Есть необходимость автоматизировать работу. Нужен макрос для создания писем из Excell, только не в Outlook а в Thunderbird. Поискав на форуме нашел замечательный пример того как можно осуществить это через гиперссылку и mailto:, () но этот спосб не подходит т.к. чувствителен к " и в некоторых случаях выдает ошибку при превышении определенного кол-ва символов.
Продолжив поиски наткнулся на код:
Sub SendEMail()
Dim FullStr As String
FullStr = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"
FullStr = FullStr & " -compose to=""mymail@mail.ru"""
FullStr = FullStr & " ,subject=""Письмецо"""
FullStr = FullStr & " ,body=""Письмище"""
FullStr = FullStr & " ,attachment=""file:///E:/123.xls"""
Shell FullStr, 1
End Sub
Интересный код, но так же не подходит т.к. не поддерживает вставку копии
если дописать FullStr = FullStr & " -compose сс=""mymail@mail.ru""" и нет возможности выборки данных для письма из ячеек.
В итоге думаю, что лучше всего использовать "Универсальный макрос" как его называют на форуме ()
Sub SendMail()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3").Value
.Attachments.Add Range("A4").Value
'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
ВОПРОС: можно ли заточить этот код для создания писем в Mozilla Thunderbird??? Я к сожалению только постигаю VBA и решить данную проблему не в силах. В этом коде подходит то, что данные для письма можно указывать в соответствующих ячейках на сколько я понимаю описано в With OutMail и ниже.
Друзья, вот уже третий день не могу найти ответ на один вопрос.
Есть необходимость автоматизировать работу. Нужен макрос для создания писем из Excell, только не в Outlook а в Thunderbird. Поискав на форуме нашел замечательный пример того как можно осуществить это через гиперссылку и mailto:, () но этот спосб не подходит т.к. чувствителен к " и в некоторых случаях выдает ошибку при превышении определенного кол-ва символов.
Продолжив поиски наткнулся на код:
Sub SendEMail()
Dim FullStr As String
FullStr = "C:\Program Files\Mozilla Thunderbird\thunderbird.exe"
FullStr = FullStr & " -compose to=""mymail@mail.ru"""
FullStr = FullStr & " ,subject=""Письмецо"""
FullStr = FullStr & " ,body=""Письмище"""
FullStr = FullStr & " ,attachment=""file:///E:/123.xls"""
Shell FullStr, 1
End Sub
Интересный код, но так же не подходит т.к. не поддерживает вставку копии
если дописать FullStr = FullStr & " -compose сс=""mymail@mail.ru""" и нет возможности выборки данных для письма из ячеек.
В итоге думаю, что лучше всего использовать "Универсальный макрос" как его называют на форуме ()
Sub SendMail()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Range("A1").Value
.Subject = Range("A2").Value
.Body = Range("A3").Value
.Attachments.Add Range("A4").Value
'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой
.Send
End With
On Error GoTo 0
Set OutMail = Nothing
cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub
ВОПРОС: можно ли заточить этот код для создания писем в Mozilla Thunderbird??? Я к сожалению только постигаю VBA и решить данную проблему не в силах. В этом коде подходит то, что данные для письма можно указывать в соответствующих ячейках на сколько я понимаю описано в With OutMail и ниже.
