Перестала работать картинка из Excel в Outlook - PullRequest
Новая
       10

Перестала работать картинка из Excel в Outlook

0 голосов
/ 11 марта 2020

Я использовал приведенный ниже код около десятка раз без проблем. На моем последнем прогоне он вставлен в Excel вместо Outlook, а на дополнительных прогонах он полностью прекратил вставку. Ручное нажатие на control v будет работать, но макрос просто перестал посылать команду. Не уверен, в чем проблема, я не изменил ни один код. Какие-нибудь мысли? Это настройка Excel, которая могла измениться? 

With mon_mail
            .to = EYEmail
            .CC = ManagerEmail
            .Subject = "Monthly Scorecard"
            Set CopyScorecard = Worksheets("Scorecard").Range("B" & Num & ":K" & Num2)
            Wait 2.5
            CopyScorecard.CopyPicture
            .Body = ""
            .Display
            Wait 2
            SendKeys "^({v})", True
            Wait 2
            .Close olSave
            Set mon_mail = Nothing
        End With
...