Új hozzászólás Aktív témák

• #32690 morgusz csendes tag

  Új Válasz 2016-09-16 01:13:34 #32690

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  morgusz

  csendes tag

  Sziasztok!

  Egy naponta készített táblázatból kellene adatokat küldenem címzetteknek.

  A teljes táblázatból csak kijelölt cellatartományt, illetve esetenként nem összefüggő sorokat (mindig azonos oszlopok adai) kellene küldeni 1-1 emailben. (Egy email max. 15 sor adat)

  Jó lenne olyan makró, amivel a kijelölt tartományt, tartományokat vagy sorokat elküldhetem az email szövegeként, (némi magyarázattal) vagy mellékletként.
  Van már olyan makróm ami mindig azonos (összesítő) tartományt küld, (a napi.xls fájlba bemásolva) de most csak kézzel kijelölt részeket küldenék.

  Ez van most, de nem tudom hogy kellene átalakítani:

  Dim Outlookprogi As Object
  Dim Email As Object
  Set Outlookprogi = CreateObject("Outlook.Application")
  Set Email = Outlookprogi.CreateItem(0)

  On Error Resume Next
  With Email
  .to = "....."
  .CC = "...."
  .BCC = "....."
  .Subject = "......."
  .Body = ActiveCell.Offset(0, 12).Value]
  .Attachments.Add "D:\napi.xls"
  .Display
  End With
  Set Email = Nothing
  Set Outlookprogi = Nothing

  Előre is köszi!

Új hozzászólás Aktív témák