Question

我正在使用vb.net通过.MSG文件发送电子邮件，我尝试使用.OFT，两者都使用createitemfromtemplate。

电子邮件会发送，没问题。效果很好。我唯一的问题是我重新启动时，我必须将.msg或.oft文件重新保存为相同的文件名，以便它们再次发送，否则它将不再起作用。

关于为什么会这样或如何解决这个问题的任何想法？

示例：

         Dim omsg As Object
                omsg = Outl.CreateItemfromtemplate("Custom Two.msg")
                omsg.To = (TextBox1.Text)
                omsg.Subject = (TextBox2.Text)

                omsg.Display(False) 'will display message to user

有人建议在应用程序加载之前将文件添加到内存中以纠正此问题..但我不是百分之百确定如何执行此操作，除了它在加载事件中的任何内容..任何想法？

Answer 1

我发现最简单的答案是：

        Dim filelist() As String = Directory.GetFiles(Application.StartupPath)
    For Each File In filelist
        If File.Contains(".oft") Or File.Contains(".msg") Then
            Dim temp1 As String = File.Replace(Application.StartupPath & "\", String.Empty)
            If File.Contains(".oft") Then
                ComboBox1.Items.Add(temp1)
            ElseIf File.Contains(".msg") Then
                ComboBox1.Items.Add(temp1)
            End If

        End If

不是试图将它们一个一个地用名称读入列表，而是动态地链接它们似乎更合适并且没有问题地执行。

发送电子邮件时重新保存.MSG文件

1 个答案: