If Then statement doesn't recognise the value in combobox (sending an email)

[bignate]

Hi, I have used the code below to send an email automatically when a new record has been created. However I recently added the If Then statement to the code as you can see. The problem is that the email wont send because it says "There must be at least one name or distribution list in the To Cc or Bcc box". It is most likely saying this because it doesn't recognise "IT" in the txtDeparment combobox. How can I get it to recognise IT in the department combobox? The reason I am using an If Then is because I will make it send to different email addresses depending on what is in txtDepartment by using ElseIf

Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
If Me.txtDepartment = "IT" Then
.To = "my email"
End If
.Subject = "hi"
.HTMLBody = "hi"
.send
End With



Thanks

[bignate]

I solved it.
It wasnt working because I had the code after DoCmd.GoToRecord acActiveDataObject, , acNewRec
So the txtDepartment field was now blank

I had to change it so that the code was before DoCmd.GoToRecord acActiveDataObject, , acNewRec