Установите важность почты при использовании конверта 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 ответа

Решение

Это свойство MailItem, а не MailEnvelope, поэтому вам нужно использовать:

.Item.Importance = 2

Свойство "MailEnvelope" рабочего листа возвращает объект MsoEnvelope. "Важность" является свойством объекта MailItem, поэтому вам необходимо:

.Item.Importance = 2

Ты пытался?

.Item.Importance = olImportanceHigh
Другие вопросы по тегам