为什么代码会连接到套接字但不发送数据

Question

我更改类是因为我希望消息来自edittext ，但是更改套接字后，它会连接到服务器，但不会发送数据，我认为这是因为我认为我没有正确配置类，但是我希望消息来自edittext，我不知道该怎么做，所以知道我被阻止了。如果您知道为什么他会出现此错误，请帮助我。 代码

Dim rng as Range
Set rng = Range("A1:F10") 'Modify as needed

With OutMail
    .To = "xxxxx@xxxxx.com"
    .BCC = ""
    .Subject = "Subject"
    .Display
    Dim wdDoc As Object     '## Word.Document
    Dim wdRange As Object   '## Word.Range
    Set wdDoc = OutMail.GetInspector.WordEditor
    Set wdRange = wdDoc.Range(0, 0)
    wdRange.InsertAfter vbCrLf & vbCrLf
    'Copy the range in-place
    rng.Copy
    wdRange.Paste
End With