SMTP server requires authentication

Hi,

Could anyone help about what additional lines have to be put in Case "JMail" when SMTP server requires authentication - Password and Username?
Thanks,
uffea

'JMail component
  Case "Jmail"

   'Create the e-mail server object
   Set objJMail = Server.CreateObject("JMail.SMTPMail")

   With objJMail
    'Out going SMTP mail server address
    .ServerAddress = strIncomingMailServer

    'Who the e-mail is from
    .Sender = strFromEmailAddress
    .SenderName = strFromEmailName

    'Who the e-mail is sent to
    .AddRecipient strRecipientEmailAddress

    'The subject of the e-mail
    .Subject = strSubject

    'Set the e-mail body format (BodyHTML=HTML Body=Text)
    If blnHTML = True Then
     .HTMLBody = strEmailBodyMessage & strEmailBodyAppendMessage
    Else
     .Body = strEmailBodyMessage & strEmailBodyAppendMessage
    End If

    'Importance of the e-mail
    .Priority = 3

    'Send the e-mail
    If NOT strIncomingMailServer = "" Then .Execute
   End With

   'Close the server mail object
   Set objJMail = Nothing