Resave .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 

Вместо того, чтобы пытаться читать их в список по одному с именами, связывая их динамически, кажется, подходит лучше и выполнить без проблем.