zpravu v pozadovanem tvaru vygeneruje: Option Explicit Sub SendMail() Dim ol As Object, myItem As Object Dim adresat As String, vec As String, telo As String, SBlk As Range, SCll As Range Set ol = CreateObject("outlook.application") Set myItem = ol.CreateItem(0) With Worksheets("list...