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