Прикрепите файл и диаграмму в книге к электронной почте, созданной excel vba

Я не продвигаюсь по Excel vba, но до сих пор использую этот сайт.

Поэтому мне удалось создать таблицу, которую я хочу отправить по электронной почте, и создать электронное письмо, которое я хочу отправить читателям, но я зациклился на том, как привязать диаграмму к картинке (я уже создаю ее как изображение на новом листе в книге i будет отправляться) и приложите одну и ту же книгу Excel к электронной почте, чтобы закончить электронную почту и сделать ее готовой к отправке.

Вот как я догадался:

Sub LFL_makrosu() 'select&copy&paste from sheet to another 'find last row on sheet Dim lRow As Long lRow = Cells(Rows.Count, 1).End(xlUp).Row 'first copy&paste Sheets("Sheet1").Select lRow = Cells(Rows.Count, 1).End(xlUp).Row 'USE CORRECT CELLS ON BELOW CODE Range("A2:B" & lRow).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets("Sheet4").Select 'USE CORRECT CELLS ON BELOW CODE Range("A2").Select ActiveSheet.Paste 'second copy&paste Sheets("Sheet2").Select lRow = Cells(Rows.Count, 1).End(xlUp).Row 'USE CORRECT CELLS ON BELOW CODE Range("A2:B" & lRow).Select Selection.SpecialCells(xlCellTypeVisible).Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet4").Select lRow = Cells(Rows.Count, 1).End(xlUp).Row 'USE CORRECT CELLS ON BELOW CODE Range("A" & lRow + 2).Select ActiveSheet.Paste 'third copy&paste Sheets("Sheet3").Select lRow = Cells(Rows.Count, 1).End(xlUp).Row 'USE CORRECT CELLS ON BELOW CODE Range("A2:B" & lRow).Select Selection.SpecialCells(xlCellTypeVisible).Select Application.CutCopyMode = False Selection.Copy Sheets("Sheet4").Select lRow = Cells(Rows.Count, 1).End(xlUp).Row 'USE CORRECT CELLS ON BELOW CODE Range("A" & lRow + 2).Select ActiveSheet.Paste 'create the table and email Call Snapshotandsendmail End Sub Sub Snapshotandsendmail() ' Snapshot Macro Dim lRow As Long lRow = Cells(Rows.Count, 1).End(xlUp).Row 'start creating mail and the table as picture Dim wb As ThisWorkbook Set wb = ThisWorkbook Dim ws As Worksheet Set ws = wb.Sheets("Sheet4") Dim rng As Range Set rng = ws.Range("A2:D18") rng.CopyPicture Dim CH As Chart Set CH = Charts.Add CH.Location xlLocationAsObject, "Sheet4" Set CH = ActiveChart ActiveChart.Parent.Name = "Final_Tablo" ActiveSheet.ChartObjects("Final_Tablo").Height = rng.Height ActiveSheet.ChartObjects("Final_Tablo").Width = rng.Width rng.CopyPicture xlScreen, xlBitmap CH.Paste Call sendemail End Sub Sub sendemail() 'create the email on outlook Dim olook As Outlook.Application Set olook = New Outlook.Application Dim omail As Outlook.MailItem Set omail = olook.CreateItem(olMailItem) With omail .Display End With Signature = omail.HTMLBody Dim fldName1 As String fldName1 = Path & Gun & ".xlsx" 'creates the message on the Email from given date to today - 2 With omail .To = "[email protected]" .CC = "[email protected]" .Subject = "LFL Karşılaştırması" .HTMLBody = "<BODY style=font-size:11pt;font-family:calibri>Merhaba, <p>" & "01.01.2017 - 0" & DateAdd("d", -2, Date) & " tarih aralığını içeren; günlük LFL, Koçtaş All Stores Satış & CM & BM% ve bütçe karşılaştırmasını ekte bilgilerinize sunarız.<p>" & vbNewLine & Signature '.Save .Display '.Send End With Set omail = Nothing Set olook = Nothing Set olAtt = Nothing End Sub 

  • Импортируйте информацию по электронной почте формата .msg (включая тему, отправителя, CC, приемник, SentDate и т. Д.), Чтобы выделить ячейки
  • Excel VBA для включения тела в перенаправленный адрес электронной почты Outlook
  • Отправка сообщения электронной почты из Excel в Outlook
  • Excel VBA для подсчета электронных писем в общих почтовых ящиках каждые 15 минут
  • Дать исключительный контроль над перспективой
  • Как указать вложенную папку в Outlook с помощью Excel VBA
  • Запустить пустую электронную почту из Excel для Outlook
  • Попытка извлечь вложения Outlook из сохраненных файлов .msg с помощью VBA
  • Как защитить паролем электронную почту в Outlook
  • Назначен объект назначения
  • Ошибка отклонения метода VBA .Attachments.Add
  • Interesting Posts
    Давайте будем гением компьютера.