VBA通过Outlook信件，如何设置信件的importance为High呢？

[geng3stone]

如题，编写了如下代码，一个发信的函数
已经加入.Importance = olImportanceHigh，但是发出的邮件的Importance却变成了low？
这是怎么回事呢？谢谢大家~~

Function sendemail2(address)

On Error GoTo errhandler
Application.ScreenUpdating = False
Dim signature As String
Dim sigstring As String
Dim objOL As Object
Dim itmNewMail As Object
sigstring = "D:\Documents and Settings\rgeng\Application Data\Microsoft\Signatures\robbie geng.txt"
If Dir(sigstring) <> "" Then
signature = GetBoiler(sigstring)
Else
signature = ""
End If
Set objOL = CreateObject("Outlook.Application")
Set itmNewMail = objOL.CreateItem(olMailItem)

With itmNewMail

.To = address
.CC = ""
.Importance = olImportanceHigh
.Subject = "Virus Infected"
.Body = "Hi all," & vbCrLf & vbCrLf & "As you ......" _
& vbCrLf & vbCrLf & signature



.Save

.Send
'On Error GoTo 0
Set objOL = Nothing
Set itmNewMail = Nothing
End With


Application.ScreenUpdating = True

errhandler:

MsgBox Err.Description


End Function

[meiZiNick]

关注 接分

[arong1234]

我估计是被某个rule改了，没有道理会自动设置回low的
几个需要注意的地方：
1. 你应该尽量避免CreateObject("Outlook.Application")，如果是宏，应该用系统给你的Application对象，如果是Addin，用OnConnect传给你的application，否则你每次发送都会弹个对话框给你
2. 发送前不需要Save
在发送前，你打印一下important属性看看是多少

[geng3stone]

谢谢楼上的
现在确实用vba操作，每次都会有一个弹出框
发送前加入save，是防止内容邮件丢失。。。
我还是自己再测试一下吧

[geng3stone]

我发现把.Importance = olImportanceHigh改成
.importance = 2就可以了
Anyway， thanks everyone.