How does one enter the from address using VBA? Is it possible?

I tried '.From', but this does not work.

Sub email()
Dim olApp As Object
Set olApp = CreateObject("outlook.application")
With olApp.CreateItem(0)
.To = to_email
' .from = from_email
.subject = "subject test"
.body = body
.Save
End With
Set olApp = Nothing

End Sub