Index: branches/5.2.x/core/units/mailing_lists/mailing_list_eh.php
===================================================================
diff -u -N -r15230 -r15461
--- branches/5.2.x/core/units/mailing_lists/mailing_list_eh.php	(.../mailing_list_eh.php)	(revision 15230)
+++ branches/5.2.x/core/units/mailing_lists/mailing_list_eh.php	(.../mailing_list_eh.php)	(revision 15461)
@@ -1,6 +1,6 @@
 <?php
 /**
-* @version	$Id: mailing_list_eh.php 15230 2012-03-26 10:13:31Z alex $
+* @version	$Id: mailing_list_eh.php 15461 2012-07-18 14:18:30Z alex $
 * @package	In-Portal
 * @copyright	Copyright (C) 1997 - 2009 Intechnic. All rights reserved.
 * @license      GNU/GPL
@@ -31,6 +31,7 @@
 				'OnCancelMailing' => Array ('self' => 'edit'),
 				'OnGenerateEmailQueue' => Array ('self' => true),
 				'OnProcessEmailQueue' => Array ('self' => true),
+				'OnGetHtmlBody' => Array ('self' => 'edit'),
 			);
 
 			$this->permMapping = array_merge($this->permMapping, $permissions);
@@ -381,4 +382,21 @@
 
 			$mailing_list_helper->processQueue($messages);
 		}
+
+		/**
+		 * Returns HTML of sent e-mail for iframe
+		 *
+		 * @param kEvent $event
+		 * @return void
+		 * @access protected
+		 */
+		protected function OnGetHtmlBody(kEvent $event)
+		{
+			$event->status = kEvent::erSTOP;
+
+			$object = $event->getObject();
+			/* @var $object kDBItem */
+
+			echo $object->GetDBField('MessageHtml');
+		}
 	}
\ No newline at end of file