用VBA代码启动outlook web版，用getElementById方法可以给标题赋值吗

用VBA代码启动outlook web版，用getElementById方法给标题赋值，由于标题并不全部是英文，用以下方法
With objIE
.Visible = True
.navigate "

& sEmail & "&path=/mail/action/compose"
End With
sTitle = Range("D13").Value
objIE.Document.getElementById("TextField18").Value = sTitle

运行后可以正常显示标题内容，但是光标点到任何一处按钮，或添加附件后，标题就会消失