Need Help Converting a VBA Macro to AppleScript 2.1.2 for Outlook 2011

Hello AppleScript Experts:

Can somebody help me convert the below VBA Macro to an equivalent AppleScript 2.1.2 for Mac Outlook 2011 (Version 14.1.3)

I have a VBA macro program that pops message box when somebody sends an email to an external email address outside of the business domain name. I have deployed the below on WINDOWS 7 MS OFFICE OUTLOOK 2007/2010 and it’s working successfully.
I have few users using MAC Outlook 2011 v.14.0.1 & 14.1.3. I need to deploy the same application for MAC users.

Here is the program…

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecipient As Outlook.Recipient
Dim strExternalEmailAddress As String
Dim strInternalEmailAddress As String
Dim oRecip As Outlook.Recipient
Dim oEU As Outlook.ExchangeUser
Dim oEDL As Outlook.ExchangeDistributionList
Set objRecipients = Item.Recipients
strTemp = “”

For Each objRecipient In objRecipients
Set oRecip = Application.Session.CreateRecipient(objRecipient.Address)
If InStr(1, oRecip, “@”) > 0 And InStr(1, oRecip, “company.org”) = 0 Then
strExternalEmailAddress = strExternalEmailAddress & objRecipient.AddressEntry & " - " & objRecipient.Address & "; "
strExternalEmailAddress = strExternalEmailAddress & vbCrLf
Else
oRecip.Resolve
If oRecip.Resolved Then
Select Case oRecip.AddressEntry.AddressEntryUserType
Case OlAddressEntryUserType.olExchangeUserAddressEntry
Set oEU = oRecip.AddressEntry.GetExchangeUser
If Not (oEU Is Nothing) Then
End If
Case OlAddressEntryUserType.olExchangeDistributionListAddressEntry
Set oEDL = oRecip.AddressEntry.GetExchangeDistributionList
If Not (oEDL Is Nothing) Then
End If
Case Else
If (objRecipient.Type = 1) And InStr(1, oRecip, “company.org”) = 0 Then
strExternalEmailAddress = strExternalEmailAddress & objRecipient.AddressEntry & " - " & oRecip & "; "
strExternalEmailAddress = strExternalEmailAddress & vbCrLf
ElseIf (objRecipient.Type = 1) And InStr(1, oRecip, “company.org”) <> 0 Then
strInternalEmailAddress = strInternalEmailAddress & objRecipient.AddressEntry & " - " & oRecip & "; "
strInternalEmailAddress = strInternalEmailAddress & vbCrLf
ElseIf (objRecipient.Type = 2) And InStr(1, oRecip, “company.org”) = 0 Then
strExternalEmailAddress = strExternalEmailAddress & objRecipient.AddressEntry & " - " & oRecip & "; "
strExternalEmailAddress = strExternalEmailAddress & vbCrLf
ElseIf (objRecipient.Type = 2) And InStr(1, oRecip, “company.org”) <> 0 Then
strInternalEmailAddress = strInternalEmailAddress & objRecipient.AddressEntry & " - " & oRecip & "; "
strInternalEmailAddress = strInternalEmailAddress & vbCrLf
End If
End Select
Else
If InStr(1, oRecip, “@”) > 0 And InStr(1, oRecip, “company.org”) = 0 Then
strExternalEmailAddress = strExternalEmailAddress & objRecipient.AddressEntry & " - " & objRecipient.Address & "; "
strExternalEmailAddress = strExternalEmailAddress & vbCrLf
ElseIf InStr(1, oRecip, “@”) > 0 And InStr(1, oRecip, “company.org”) <> 0 Then
strInternalEmailAddress = strInternalEmailAddress & objRecipient.AddressEntry & " - " & objRecipient.Address & "; "
strInternalEmailAddress = strInternalEmailAddress & vbCrLf
End If
End If
End If
Next

If Len(strExternalEmailAddress) > 0 Then
If MsgBox(“You are about to send this email message to one or more individuals outside of COMPANY. Before you send the message,” & _
" please review the list below and confirm that you have addressed the message to the intended recipients." & vbCrLf & strExternalEmailAddress & vbCrLf & _ “Please click ‘Yes’ to send the message or ‘No’ to make changes to the recipients.”, vbYesNo + vbDefaultButton2) = vbNo Then
Cancel = True
End If
End If

End Sub