Windows窗体-自动发送电子邮件-VB.NET_Vb.net_Email_Outlook

Windows窗体-自动发送电子邮件-VB.NET

vb.net email outlook

Windows窗体-自动发送电子邮件-VB.NET,vb.net,email,outlook,Vb.net,Email,Outlook,以下是生成电子邮件并将其显示给用户的代码： Imports Outlook = Microsoft.Office.Interop.Outlook Private Function ReadSignature(sigName As String) As String Dim oFSO, oTextStream As Object Dim appDataDir, sig, sigPath, fileName As String appDataDir = Environ(

以下是生成电子邮件并将其显示给用户的代码：

Imports Outlook = Microsoft.Office.Interop.Outlook

Private Function ReadSignature(sigName As String) As String 

    Dim oFSO, oTextStream As Object
    Dim appDataDir, sig, sigPath, fileName As String
    appDataDir = Environ("APPDATA") & "\Microsoft\Signatures"
    sigPath = appDataDir & "\" & sigName

    oFSO = CreateObject("Scripting.FileSystemObject")
    oTextStream = oFSO.OpenTextFile(sigPath)
    sig = oTextStream.ReadAll
    ' fix relative references to images, etc. in sig
    ' by making them absolute paths, OL will find the image
    fileName = Replace(sigName, ".htm", "") & "_files/"
    sig = Replace(sig, fileName, appDataDir & "\" & fileName)
    ReadSignature = sig
End Function

Private Sub Email()
    Dim INC As String
    INC = wb1.Document.GetElementById("arid_WIN_2_1000000161").InnerText

    Dim sig As String
    ' MainSig.htm is the name you gave your signature in the OL Options dialog 
    sig = ReadSignature("MainSig.htm")

    Dim Outl As Object
    Outl = CreateObject("Outlook.Application")
    If Outl IsNot Nothing Then
        Dim omsg As Object
        omsg = Outl.CreateItem(0)
        omsg.To = TextBox35.Text
        omsg.cc = TextBox37.Text
        omsg.subject = INC & TextBox38.Text
        omsg.HTMLBody = "<p>" & TextBox40.Text & "</p><p>" & TextBox41.Text & "</p><p>" & "<p>INC# : " & INC & "<br/>TMS ID: " & TextBox2.Text & TextBox4.Text & "</p><p>Issue : " & "<br/>Resulting in: " & ComboBox6.Text & "<br/>Issue Resolved?: " & TextBox29.Text & "<br/>User error?: " & TextBox30.Text & "</p><p>Person reporting (Or name Of caller): " & TextBox1.Text & "<br/>Reported Source: " & ComboBox2.Text & "<br/>INC# Provided to customer: " & TextBox21.Text & "<br/>Date And Time:  " & DateTimePicker2.Value & "<br />(MM/DD/YYYY HH:MM) " & ComboBox1.Text & "</p><p>Site(s) affected:<br />" & TextBox5.Text & "<br/>" & TextBox6.Text & "</p><p>Additional notes: <br />" & TextBox3.Text & "</p><p>" & TextBox24.Text & "<br /></p><p>Impact : " & ComboBox3.Text & "<br />Urgency: " & ComboBox4.Text & "<br /></p><p>" & sig
        omsg.Display(True) 
        End If
End Sub

导入Outlook=Microsoft.Office.Interop.Outlook 私有函数ReadSignature（SignName作为字符串）作为字符串对象为SO、oTextStream的尺寸 Dim appDataDir、sig、sigPath、文件名为字符串 appDataDir=Environ（“APPDATA”）和“\Microsoft\Signatures” sigPath=appDataDir&“\”&sigName oFSO=CreateObject（“Scripting.FileSystemObject”） oTextStream=oFSO.OpenTextFile（sigPath） sig=oTextStream.ReadAll '修复sig中图像等的相对引用 “通过使它们成为绝对路径，OL将找到图像 fileName=Replace（sigName、.htm、“”）和“\u files/” sig=Replace（sig，文件名，appDataDir&“\”文件名） ReadSignature=sig 端函数私人子电子邮件（）作为字符串的Dim公司 INC=wb1.Document.GetElementById（“AND_WIN_2_1000000161”）.InnerText 作为字符串的Dim sig 'MainSig.htm是您在“OL选项”对话框中签名的名称 sig=ReadSignature（“MainSig.htm”）变暗为对象 Outl=CreateObject（“Outlook.Application”）如果Outl不是什么，那么将omsg设置为对象 omsg=Outl.CreateItem（0） omsg.To=TextBox35.Text omsg.cc=TextBox37.Text omsg.subject=INC&TextBox38.Text omsg.HTMLBody=“”&TextBox40.Text&“

”&TextBox41.Text&“

”&“INC#：”&INC&“
TMS ID:”&TextBox2.Text&TextBox4.Text&“问题：&”
导致：“&box6.Text&”
问题已解决：”&TextBox29.Text&“
用户错误：”&TextBox30.Text&“

来电者姓名报告（或来电者姓名）：”&TextBox1.Text&“
报告来源：”&ComboBox2.Text&“
公司提供给客户：&TextBox21.Text&“
日期和时间：&DateTimePicker2.Value&“
（MM/DD/yyyyy HH:MM）”&ComboBox1.Text&“受影响的站点：
“&TextBox5.Text&“
”&TextBox6.Text&“
”附加说明：
&TextBox3.Text&”“

”&TextBox24.Text&“

影响：&ComboBox3.Text&“
紧迫性：&ComboBox4.Text&”

”&sig omsg.显示（真）如果结束端接头当用户需要升级票据时，这非常有用，因为它允许他们在发送票据之前添加任何额外的注释，但是我试图让它将创建的每个票据的副本（无论是否升级）发送到我们的主邮箱以及任何升级电子邮件（最好是在后台完成，不依赖用户单击发送，而不是像我知道的那样关闭它）

问题是当我将omsg.Display（True）更改为omsg.send时，它会引发异常并失败
我甚至尝试过离开omsg.Display（True）并在下一行添加omsg.send，但这只是显示消息，然后抛出异常

我在某个地方读到过，这可能是一项旨在阻止自我复制病毒通过电子邮件将自己发送给通讯簿中的每个人的团体政策，如果是这种情况，你们中有人能想出一个解决办法吗

提前感谢。

您很可能会遇到安全问题。本文中的“安全性”指的是所谓的“对象模型保护”"这会触发安全提示并阻止对某些功能的访问，以防止恶意程序从Outlook数据中获取电子邮件地址并使用Outlook传播病毒和垃圾邮件。这些提示不能简单地关闭，除非在Outlook 2007和更高版本中运行防病毒应用程序。这将讨论strat避免安全提示的EGIE：

开发一个不会引发安全问题的COM插件

您可以使用该组件在Outlook中禁用安全提示

使用Outlook所基于且不会引发安全问题/提示的低级API-扩展MAPI或该API周围的任何其他第三方包装（如Redemption）

通过GPO部署Outlook安全设置

您很可能会遇到安全问题。本文中的“安全性”指的是所谓的“对象模型保护”这会触发安全提示并阻止对某些功能的访问，以防止恶意程序从Outlook数据中获取电子邮件地址并使用Outlook传播病毒和垃圾邮件。这些提示不能简单地关闭，除非在Outlook 2007和更高版本中运行防病毒应用程序。这将讨论strat避免安全提示的EGIE：