Vb.net 查找&；替换电子邮件中的文本（oft或msg）

谢谢你过来看看我的问题

我正在尝试替换电子邮件中的文本（oft或msg）

我在找

@@TEST1@@并替换为textbox1.text

@@TEST2@@并替换为textbox2.text

@@TEST3@@并替换为textbox3.text

我发现以下内容可以打开电子邮件模板，这是一种享受

 Dim Outl As Object
    Outl = CreateObject("Outlook.Application")
    If Outl IsNot Nothing Then
        Dim omsg As Object
        omsg = Outl.CreateItemFromTemplate("C:\Testing\EmailSerials.oft")
        omsg.To = "yusuf@hotmail.com"
        omsg.subject = "Hello, Please find your Software"
        omsg.Display(True) 
    End If

我是新手，所以任何帮助或例子都会很好

谢谢 詹姆斯

看看

我假设OFT文件中有您希望替换的内容。我还借此机会将VB6代码替换为VB.Net版本

添加对以下内容的引用：

Microsoft.Office.Interop.Outlook

并且，还要将其添加到文件的顶部：

Imports Microsoft.Office.Interop

然后是替换要替换的文本的代码

    Dim Outl As New Outlook.Application

    If Outl IsNot Nothing Then
        Dim omsg As Outlook.MailItem = CType(Outl.CreateItemFromTemplate("C:\Testing\EmailSerials.oft"), Outlook.MailItem)
        omsg.To = "yusuf@hotmail.com"
        omsg.subject = "Hello, Please find your Software"

        omsg.Body = omsg.Body.Replace("@@TEST1@@", textbox1.text)
        omsg.Body = omsg.Body.Replace("@@TEST2@@", textbox2.text)
        omsg.Body = omsg.Body.Replace("@@TEST3@@", textbox3.text)

        omsg.Display(True)
    End If