Здравствуйте! Очень прошу помочь с решением одной проблемы. Дело в том, что я автоматизирую процесс отправки листа ексель в виде pdf по почте outlook, и для этого записываю макрос: файл --- общий доступ --- отправить по электронной почте --- отправить как pdf. Когда я записываю макрос, он отправляется в пдф и проблем не возникает, однако при запуске этого макроса файл перед отправкой открывается в окне outlook в виде книги ексель. Я пробовала отправить и с других устройств, однако происходило то же самое. Подскажите, пожалуйста, в чём причина данного явления и как её решить?
Вот код:
[vba]
Код
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(xlDialogSendMail).Show End Sub
[/vba]
Здравствуйте! Очень прошу помочь с решением одной проблемы. Дело в том, что я автоматизирую процесс отправки листа ексель в виде pdf по почте outlook, и для этого записываю макрос: файл --- общий доступ --- отправить по электронной почте --- отправить как pdf. Когда я записываю макрос, он отправляется в пдф и проблем не возникает, однако при запуске этого макроса файл перед отправкой открывается в окне outlook в виде книги ексель. Я пробовала отправить и с других устройств, однако происходило то же самое. Подскажите, пожалуйста, в чём причина данного явления и как её решить?
Вот код:
[vba]
Код
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(xlDialogSendMail).Show End Sub