Добрый день.
Прошу Вас помочь.
Для рассылки по некоторым сотрудникам информации хочу сделать макрос.
Взял уже имеющиеся на просторах, в целом он устраивает.
Но не могу понять, почему-то на некоторых сотрудниках он накладывает график на скриншот, на некоторых нет.
Прошу Вас помочь.
Для рассылки по некоторым сотрудникам информации хочу сделать макрос.
Взял уже имеющиеся на просторах, в целом он устраивает.
Но не могу понять, почему-то на некоторых сотрудниках он накладывает график на скриншот, на некоторых нет.
| Код |
|---|
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
|
