ActiveSheet.MailEnvelope

一直在试图用vba发送电子邮件，但是我遇到了邮件信封的一个不寻常的问题，并且看到了许多这个微妙的对象未解决的问题。

我通过debugging发现它试图发送下面的代码时locking，我解决的一个问题是，我需要一个范围来select。

但现在它锁起来了，因为我正在发送一个消息与从空字段。

如果我添加一个断点，手动添加字段，然后恢复一切顺利，

但我找不到适当的语法来做到这一点： .Item.From = "[e-mail]"

 ActiveWorkbook.EnvelopeVisible = True ' On Error Resume Next With ActiveSheet.MailEnvelope .Item.To = tech .Item.Subject = "some words" .Introduction = "some more words" ActiveSheet.Range("A1:G5").Select // from line goes here .Send End With ActiveWorkbook.EnvelopeVisible = False On Error GoTo 0 

Answer 1

“.From”是.SentOnBehalfOfName

 .SentOnBehalfOfName = "[e-mail]" 

https://msdn.microsoft.com/en-us/library/office/ff862145.aspx