**Below image is interface of an email for indication**

[![enter image description here](https://i.stack.imgur.com/jAEEX.png)](https://i.stack.imgur.com/jAEEX.png)

I have browsed through the contents, but I didn't get any solution for this and still finding codes to populate this method but not succeed :( .

```
Dim iMsg As Object
Dim iConf As Object
Dim strBody As String
Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

     iConf.Load -1    ' CDO Source Defaults
     Set Flds = iConf.Fields
      With Flds
         .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
         .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
                        = "SMTP server name"    
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update

End With

strBody = "Hello!" & vbNewLine & vbNewLine & _
          "" & vbNewLine & _
          "" & vbNewLine & _
          "Thanks" 

With iMsg
    Set .Configuration = iConf
    .To = "sam@gmail.com" 
    .CC = ""  
    .BCC = ""
    .From = """Jhon walker"" <jhon.walker@gmail.com>" 
    .Subject = "test"
    .TextBody = ""
    .send
End With

```

I will be thankful of any contribution.