Макросы, outlook,pdf.

[Fenuye]

Здравствуйте! Очень прошу помочь с решением одной проблемы. Дело в том, что я автоматизирую процесс отправки листа ексель в виде pdf по почте outlook, и для этого записываю макрос: файл --- общий доступ --- отправить по электронной почте --- отправить как pdf. Когда я записываю макрос, он отправляется в пдф и проблем не возникает, однако при запуске этого макроса файл перед отправкой открывается в окне outlook в виде книги ексель. Я пробовала отправить и с других устройств, однако происходило то же самое.
Подскажите, пожалуйста, в чём причина данного явления и как её решить?

[kvitaliy]

Сообщение от Fenuye

в чём причина данного явления

В макросе, который вы запускаете.

Сообщение от Fenuye

как её решить?

Как минимум выложить тут макрос, который вы используете.

[Fenuye]

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\azgus\AppData\Local\Temp\ ÊÀËÅÍÄÀÐÜ 1.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Application.Dialogs(xlDialogSendMai l).Show
End Sub

[kvitaliy]

Сообщение от Fenuye

Application.Dialogs(xlDialogSendMai l).Show

Тут разве не должны быть аргументы? Откуда макрос знает, куда отправить?
Что-то как-то так, но надо глянуть в MSDN
Application.Dialogs(xlDialogSendMai l).Show arg1:=дяде@почта.ру, arg2:=Тема письма

Код на несколько адресов(2):

Sub Macro1()
Dim add1 As String, add2 As String
add1 = "g.rovelli@italgen.it"
add2 = "e.maffeis@italgen.it"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                       "\\itg980srv01\common\rovelli\Rilevazioni Terna.pdf", Quality:= _
                                       xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                                       OpenAfterPublish:=False
    Application.Dialogs(xlDialogSendMail).Show arg1:=Array(add1, add2)
End Sub

[Aleksandr H.]

Сообщение от kvitaliy

Тут разве не должны быть аргументы? Откуда макрос знает, куда отправить?

Может юзверь сам должен в открывшимся окне Outlook вписать вручную адресата?

Приведенный тс макрос работает на офисе365 без заявленого "файл перед отправкой открывается в окне outlook в виде книги ексель" (скта скриншот этого можно увидеть?). Ведь файл и так уже открыт в excel, файлы с одинаковым именем одновременно не могут быть открытыми

[Fenuye]

Сообщение от Aleksandr H.

Может юзверь сам должен в открывшимся окне Outlook вписать вручную адресата?

Приведенный тс макрос работает на офисе365 без заявленого "файл перед отправкой открывается в окне outlook в виде книги ексель" (скта скриншот этого можно увидеть?). Ведь файл и так уже открыт в excel, файлы с одинаковым именем одновременно не могут быть открытыми

Добрый день! Вот скриншот. Я данный макрос применила в других книгах, однако всё также файл прикреплён в формате ексель. Также попыталась вручную вписывать адресата, результата нет

[Fenuye]

Сообщение от kvitaliy

Код на несколько адресов(2):

Sub Macro1()
Dim add1 As String, add2 As String
add1 = "g.rovelli@italgen.it"
add2 = "e.maffeis@italgen.it"
    ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                                       "\\itg980srv01\common\rovelli\Rilevazioni Terna.pdf", Quality:= _
                                       xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
                                       OpenAfterPublish:=False
    Application.Dialogs(xlDialogSendMail).Show arg1:=Array(add1, add2)
End Sub

Я изменила расположение книги, как у меня на ноутбуке и всё. Запустила макрос, который вы предложили, однако он всё также не работает