'(Declarations)
Option Explicit

' starts Subroutine 

'converts Variant to String 
Function MakeString(myVal)
Dim retVal
	If (isnull(myVal) Or isempty(myVal)) Then
		retVal = Cstr("")
	Else
		retVal = Cstr(myVal)
	End If
	MakeString = retVal
End Function

'Mail
Sub Out_Mail
	Dim myApp

	Dim myMail		
	Dim stRecipient	
	Const olMailItem = 0
	
	' Check Mail -> if E-Mail Address exists!
	If ( MakeString( MESOFormel.Vars(45,25) = "" ) )Then
		Msgbox ( MESOFormel.GetString( 1480 ) )
		Exit Sub
	End If 

	Set myApp = CreateObject("Outlook.Application")
	Set myMail = myApp.CreateItem(olMailItem)
	stRecipient = MESOFormel.Vars(45,25)
	myMail.Body = vbCrlf & MakeString( MESOFormel.Vars(45,27) )

	myMail.Recipients.Add(stRecipient)
	myMail.Recipients.ResolveAll
	
	myMail.Display
	
	' Clean Up
	Set myApp = Nothing
	Set myMail = Nothing
End Sub