Добрый день.
Прошу Вас помочь.
Для рассылки по некоторым сотрудникам информации хочу сделать макрос.
Взял уже имеющиеся на просторах, в целом он устраивает.
Но не могу понять, почему-то на некоторых сотрудниках он накладывает график на скриншот, на некоторых нет.
Прошу Вас помочь.
Для рассылки по некоторым сотрудникам информации хочу сделать макрос.
Взял уже имеющиеся на просторах, в целом он устраивает.
Но не могу понять, почему-то на некоторых сотрудниках он накладывает график на скриншот, на некоторых нет.
Код |
---|
Sub Send_Email() -------------------------------------------------------- With OutMail .SentOnBehalfOfName = ActiveWorkbook.Sheets("Settings").Range("b1").Value .Subject = ActiveWorkbook.Sheets("Settings").Range("b2").Value 'So called (by myself) head of letter. .To = name & "qweqweqweqweqweqwe.RU" .HTMLBody = "<span LANG=EN>" & "Text" Call Get_Txt("321123545684") 'Time to create the image as a JPG file .Attachments.Add TempFilePath & "321123545684.jpg", 0, 0 .HTMLBody = .HTMLBody & "Text" 'Let us combine object 2 with a body of message .HTMLBody = .HTMLBody & "<BR>" & "<img src='cid:321123545684.jpg'" & "Text" .Display End With Set OutApp = Nothing Set OutMail = Nothing Next i With Application 'Turning graphical options back .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub Sub Get_Txt(NameFile As String) Dim PlaceY As Range ThisWorkbook.Worksheets("smart").Activate Set PlaceY = ThisWorkbook.Worksheets("Smart").Range("A4:c20") PlaceY.CopyPicture With ThisWorkbook.Worksheets("SMART").ChartObjects.Add(PlaceY.Left, PlaceY.Top, PlaceY.Width, PlaceY.Height) .Activate .Chart.Paste .Chart.Export Environ$("temp") & "\" & NameFile & ".jpg", "JPG" End With Worksheets("SMART").ChartObjects(Worksheets("SMART").ChartObjects.count).Delete Set PlaceY = Nothing End Sub |