使用Excel的信封

时间:2017-10-09 11:20:29

标签: vba excel-vba envelope excel

我在Excel中创建了一个宏来发送邮件。

我想把重要性设定得很高。我试过了

.Importance = 2
.olImportanceHigh = 2
.Importance = olImportanceHigh

它说Object不支持属性或方法。

ws1.Activate
    ToArray = wb1.Sheets("Report").Cells(3, 34).Value
    CCArray = wb1.Sheets("Report").Cells(3, 35).Value
    Subject = subject1
    Content = wb1.Sheets("Report").Cells(3, 36).Value
    ws1.Range("B3:P31").Select
    ActiveWorkbook.EnvelopeVisible = True
    With wb1.Sheets("New Report").MailEnvelope
    .Introduction = Content
    .Item.To = ToArray
    .Item.CC = CCArray
    .Item.Subject = Subject
    .Item.attachments.Add (wb2.FullName)
    .Importance = olImportanceHigh
    .Item.Send
End With
Application.DisplayAlerts = False 

3 个答案:

答案 0 :(得分:4)

它是MailItem的属性,而不是MailEnvelope,因此您需要使用:

.Item.Importance = 2

答案 1 :(得分:1)

" MailEnvelope"工作表的属性返回MsoEnvelope对象。 "重要性"是MailItem对象的属性,因此您需要:

.Item.Importance = 2

答案 2 :(得分:1)

你试过吗?

.Item.Importance = olImportanceHigh