$ReturnCode = KeyExist("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Default Outlook Profile")
;$ReturnCode = KeyExist("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook")
	If $ReturnCode
	$Sender = "ICT@@blah.com"
	;Set a recipient address.
	$Recipients = "ICT@@blah.com"
	;Set the subject.
	$Subject = '"TEST - Outlook Profile details"'
	;SMTP server to be used for sending the message.
	$smtpserver = "IP Adresss"
	;Create the body text.
	$Body = '"My Outlook Profile is Outlook"'
	;Send the message.
	$Send = BlatMailerNoAttachment($Recipients, $Sender, $Subject, $Body, $smtpserver)
	Function BlatMailerNoAttachment($Recipient, $Sender, $Subject, $Body, $smtpserver)
	Dim $MailerLine
	$MailerLine = '\\artic\Blat\blat.exe -' + ' -to ' + $recipient + ' -f ' + $sender + ' -subject ' + $subject + ' -body ' + $body + ' -server ' + $smtpserver + ' -q '
	Shell $MailerLine
	EndFunction
	ELSE
	?"do nothing"
ENDIF