Excel 2007 и Mozilla Thunderbird

[IgorGO]

вопрос тоже актуален

как выглядит Ваша strCommand ... можете показать ее сюда в следующем сообщении

[Thunderbird]

IgorGO, я Вас правильно понял?

[IgorGO]

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

что смущает:
1. почему после subject, body, attachment = (равно), а у mailto : (двоеточие)
2. почему после mailto... нет &, как после каждого парметра?

выполните эту команду просто с командной строки. получилось все? не получилось - ищите ошибку в командной строке, которую Вы сформировали. я сомневаюсь нужны ли там & в командной стноке амперсанды.

выполните Thunderbird.exe ? - у может увидите, как должна выглядеть командная строка

удачи!

[Thunderbird]

IgorGO, выполнил из командной строки, результат такой же, как и при выполнении скрипта: открывается окно отправки сообщения без прикрепленного файла. Буду рыть форумы мозиллы в поисках ключей запуска тундры из командной строки. Если что-то найду полезное - выложу сюда, м.б. кому-то пригодится =)

[Thunderbird]

Первый вариант скрипта готов:

Sub SendMailThunder_Click()
send_soft = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe" ' ïóòü ê thunderbird

stroka1 = " -compose to='" ' êîìó îòïðàâëÿþ
stroka2 = "',subject='" ' òåìà
stroka3 = "',body=" ' òåêñò ïèñüìà
stroka4 = """,attachment=" & "C:\123.xlsx" ' ïóòü ê ôàéëó, êîòîðûé îòïðàâëÿþ
stroka = send_soft & stroka1 & stroka2 & stroka3 & stroka4

Set SMs = CreateObject("WScript.Shell")
SMs.Exec stroka
End Sub

Переделаю его, чтобы текущий файл сохранялся во временную папку, прикреплялся к письму, а после этого удалялся с жесткого диска. Где-то тут я видел похожие варианты макросов =)

[Thunderbird]

UPD: комменты краказябрами получились

Sub SendMailThunder_Click()
send_soft = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"

stroka1 = " -compose to='"
stroka2 = "',subject='"
stroka3 = "',body="
stroka4 = """,attachment=" & "C:\123.xlsx"
stroka = send_soft & stroka1 & stroka2 & stroka3 & stroka4

Set SMs = CreateObject("WScript.Shell")
SMs.Exec stroka
End Sub

[Thunderbird]

Прошу помочь допилить скрипт...

Имеем:
Sub SendMailThunder_Click(ByVal Control As IRibbonControl)
ActiveWorkbook.SaveCopyAs Filename:="C:\TempXLS\" & ActiveWorkbook.Name
send_soft = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
stroka1 = " -compose to='"
stroka2 = "',subject='"
stroka3 = "',body="
stroka4 = """,attachment=" & "C:\TempXLS\" & ActiveWorkbook.Name
stroka = send_soft & stroka1 & stroka2 & stroka3 & stroka4
Set SMs = CreateObject("WScript.Shell")
SMs.Exec stroka
End Sub


Требуется:
1. По возможности после отправки сообщения со вложенным файлом удалять его копию из папки tempXLS
2. Если нет возможности корректно реализовать п.1, необходимо в скрипт добавить условие типа: если файл с таким именем уже есть в папке tempXLS, текущий файл сохранить в формате ActiveWorkbook.Name с символом "1", например. Если в папке есть файл ActiveWorkbook.Name1, то соответственно сохранять с именем ActiveWorkbook.Name2 и т.д.
3. Есть проблема отправки нового документа, если он не сохранен на диск: отправляется файл "Книга1" без расширения.

Есть какие-либо мысли по данным вопросам?

[IgorGO]

самой первой строкой в процедуре пишите:

if dir("C:\TempXLS\" & ActiveWorkbook.Name) <> "" then kill "C:\TempXLS\" & ActiveWorkbook.Name

это решает все 3 вопроса

[Thunderbird]

IgorGO, спасибо, с перезаписью файла при совпадении имен разобрался с Вашей помощью. Очистку папки реализую с помощью батника, запускающегося при лог-оне. А что скажете по поводу п.3?