$Sender = "sender@@yourdomain.com"
;Set a recipient address.
$Recipients = "recipient@@yourdomain.com"
;Set the subject.
$Subject = '"Subject"'
;SMTP server to be used for sending the message.
$smtpserver = "mailserver"
;Create the body text.
$Body = '"Message body"'
;Send the message.
$Send = BlatMailerNoAttachment($Recipients, $Sender, $Subject, $Body, $smtpserver)

Function BlatMailerNoAttachment($Recipient, $Sender, $Subject, $Body, $smtpserver)
	Dim $MailerLine
	$MailerLine = 'patht\blat.exe -' + ' -to ' + $recipient + ' -f ' + $sender + ' -subject ' + $subject + ' -body ' + $body + ' -server ' + $smtpserver + ' -q '
	Shell $MailerLine
EndFunction

$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

blat -i %USERNAME%@%COMPUTERNAME% ...

	$Sender = @USERID+"@@"+@WKSTA+".blah.com"
	$Body = '"My Outlook Profile is Outlook, I am workstation '+@WKSTA+'"

Dim $Key, $ReturnCode, $Wks, $Val, $User, $File, $DataPath
;
$Key = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook"
;
$ReturnCode = KeyExist($Key)
If $ReturnCode
   ; The key does exist.  Write the information to the central server.
   $Wks      = @WkSta
   $val      = ReadValue($Key,"")
   $User     = @USERID
   $File     = "%TEMP%" + "\" + $Wks + "-" + @TIME + ".ini"
   $DataPath = "\\server\share\profile_folder"
   ;
   $ReturnCode = WriteProfileString($File, $Wks, "Profile Key Exists", "True")
   $ReturnCode = WriteProfileString($File, $Wks, "User", $User)
   $ReturnCode = WriteProfileString($File, $Wks, "Workstation", $Wks)
   $ReturnCode = WriteProfileString($File, $Wks, "Default Value", $Val)
   ;
   Move $File $DataPath
EndIf

Is there a list of all the permitations of 'equal/not equal to' because I want it to email if the key does not equal 'Outlook'?

$sProfileKey="HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
$sDefaultProfileValue="DefaultProfile"
$sExpectedProfile="Default Outlook Profile"

$sProfile=ReadValue($sProfileKey,$sDefaultProfileValue)

If $sProfile=$sExpectedProfile
	"Your default messaging profile matches the expected '"+$sExpectedProfile+"'"+@CRLF
Else
	"Your default messaging profile is '"+$sProfile+"' which does not match the expected '"+$sExpectedProfile+"'"+@CRLF
EndIf