【发布时间】:2017-04-21 15:08:57
【问题描述】:
我需要使用 python 发送一封电子邮件并绕过当前脚本出现的 TITUS CLASSIFICATION 弹出窗口。弹出窗口会阻止它自动发送。
蟒蛇
olMailItem = 0x0
obj = win32com.client.Dispatch("Outlook.Application")
newMail = obj.CreateItem(olMailItem)
newMail.Subject = "My Subject"
newMail.Body = "My Body"
newMail.To = "myemail@gmail.com"
newMail.send()
VBA
我有一个自动发送电子邮件的 VBA 解决方案,但是将所有内容都包含在 PYTHON 脚本中而不是创建 VBA 宏并调用它会更容易和更直观。
Dim AOMSOutlook As Object
Dim AOMailMsg As Object
Set AOMSOutlook = CreateObject("Outlook.Application")
Dim objUserProperty As Object
Dim OStrTITUS As String
Dim lStrInternal As String
Set AOMailMsg = AOMSOutlook.CreateItem(0)
Set objUserProperty = AOMailMsg.UserProperties.Add("TITUSAutomatedClassification", 1)
objUserProperty.Value = "TLPropertyRoot=ABCDE;Classification=For internal use only;Registered to:My Companies;"
With AOMailMsg
.To = "myemail@gmail.com"
.Subject = "My Subject"
.Body = "My Body"
.Send
End With
Set AOMailMsg = Nothing
Set objUserProperty = Nothing
Set AOMSOutlook = Nothing
Set lOMailMsg = Nothing
Set objUserProperty = Nothing
Set lOMSOutlook = Nothing
非常感谢任何帮助!
【问题讨论】:
-
您真的需要
Outlook来发送邮件吗?不能用smtplib直接发送吗? -
我尝试了smtplib,但连接服务器时收到错误,使用outlook会更好用