If I did'nt setting anything in Microsoft Outlook, the code below can successful send out email?? or can mannual set at coding the smtp server or email address...

Code:
Private Sub CmdSend_Click()
Dim objOut As Outlook.Application
Dim objMsg As Outlook.MailItem

Set objOut = CreateObject("Outlook.Application")
Set objMsg = objOut.CreateItem(olMailItem)
    
    With objMsg
        .Importance = olImportanceHigh
        .ReadReceiptRequested = True
        .Recipients.ResolveAll
        
        .To = txtto.Text
        .Subject = txtsubject.Text
        .Body = txtbody.Text
        .ReadReceiptRequested = True
        .BodyFormat = olFormatHTML
        
        If txtAttach1.Text <> "" Then
        .Attachments.Add txtAttach1.Text, olByValue
        End If
       
        .Send
    End With
    
Set objMsg = Nothing
Set objOut = Nothing

End If