Сохраните черновик электронной почты в формате .msg с помощью .SaveAs

Question

Я использую код VBA для написания электронного письма в Outlook с информацией из файла PowerPoint и сохранения ее в виде черновика в формате «.msg».

With OutMail                    
    .To = name_email                                     
    'Add file likethis                    
    .Attachments.Add ("C:... " & numb_slide & ".pptx")                    
    .Subject = "... " & date_c & " | Open Tasks " & name_project & " | Feedback ... " & dead_line_date & ",..."                    
    .Body = StrBody                                    
    '.SaveAs "C:... " & CStr(date_c) & " | ... " & CStr(name_project) & ".msg", 5                    
    .SaveAs "C:..." & numb_slide & ".msg", 5                    
    '.Display Or use .Send                
End With

У меня две проблемы:

1) Когда я сохраняю файл, используя:

.SaveAs "C:..." & numb_slide & ".msg", 5

Программа не выдает ошибку, но я не могу открыть черновик, который был сохранен, ошибка гласит:

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

2) Если я изменю способ сохранения файла, например:

.SaveAs "C:... " & CStr(date_c) & " | ... " & CStr(name_project) & ".msg", 5 

или

.SaveAs "C:... " & date_c & " | Open Tasks " & name_project & ".msg", 5 

Перед завершением задания выдается следующая ошибка:

Переменные, которые я пишу в имени, являются строками, но я также пытался записатьони используют CStr(), чтобы проверить, будет ли это иметь какое-либо значение, , и это не так!

Answer 1

Я думаю, что вы хотите 3 вместо 5.

Из перечисления olSaveAsType:

• 3 соответствует Формат сообщения Outlook (.msg)
• 5 соответствует формат HTML (.html)

В качестве альтернативы, вы можете просто удалитьтип файла.Из документации MailItem.SaveAs

Если тип файла не указан, используется формат MSG (.msg).