發送電子郵件時重新保存.MSG文件

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 

有人建議添加文件到內存中加載應用程序之前糾正這個..但比它會在加載事件我不是100％確定如何做到這一點，其他.. 有任何想法嗎？

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 

而不是試圖通過一個與名字將其讀入一個列表中的一個，動態地聯繫起來，似乎更適合，並沒有問題執行。