Шаблон письма на VB для Outlook.

[Noober89]

Всем доброго дня!
Нужна помощь в написании макроса для создания шаблона письма в Outlook. Что использовать для введения требуемой информации от пользователя (несколько полей ввода, обязательных для заполнения)?
В html это required или input. Или может как-то можно внедрить из html в VB этот "input"?

[Aleksandr H.]

пример

Sub MyMail()
    Dim olMailMessage As Outlook.MailItem
    Dim olRecipient As Outlook.Recipient
    Dim fdInputFile As office.FileDialog
    
    Dim xlObj As Excel.Application
    
    Dim sInputFile As Variant
    
    Set xlObj = New Excel.Application
    xlObj.Visible = False
    Set fdInputFile = xlObj.Application.FileDialog(msoFileDialogOpen)
    With fdInputFile
        .Filters.Clear
        .Filters.Add "Файл звіту (PDF)", "*.PDF", 1
        .AllowMultiSelect = True
        .Title = "Select your PDF File"
        .ButtonName = "Приєднати файли"
        .InitialFileName = "D:\"
        If .Show = False Then MsgBox "Файли не були вибрані", vbInformation + vbOKOnly, "Attachment's Error"
    End With
    Set olMailMessage = Application.CreateItem(olMailItem) ' сообщение
        With olMailMessage
            .BodyFormat = olFormatHTML ' формат текста
            .Recipients.Add ("O@m.com") ' адресат
            .CC = "os@m.com" ' копія
            .Subject = "Реализация за " & Year(Date) & " р. та " & Format(Date - 2, "mmmm") ' тема 
            
            .HTMLBody = "<div style='font: 10pt; font-family:Gotham Pro'>Доброго дня! <BR><BR> " & _
                    Format(Date - 2, "mmmm") & ", " & Year(Date) & " р. <BR><BR><BR> _________________________________ <BR>  </div>"
            .Display ' 
            
            ' attach all files
            For Each sInputFile In fdInputFile.SelectedItems
                .Attachments.Add sInputFile, 1
            Next sInputFile
        End With
        xlObj.Quit
        Set xlObj = Nothing
End Sub

[Noober89]

Спасибо за ответ! А можно ли сделать через форму. Т.е. создал форму с TextBox-ами и Button-ом. Как при введении всех данных в поля формы и нажатии на кнопку организовать передачу сформированных данных в окно сообщения уже с заполненным адресатом. Макрос отправки сообщения имеется.

Sub Macros()
    Dim fileAttach As Outlook.Attachment
    
    Dim newMail As Outlook.MailItem
    Set newMail = Application.CreateItem(olMailItem)

    UserForm1.Show ' здесь сначала вызываем форму с полями и кнопкой для ввода обязательных данных
    
    ' а здесь как-то нужно через кнопку выгрузить эти данные полей с формы

    With newMail
        .Subject = "123123" + Format(Date, "dd.mm.yyyy (dddd)")
        .To = "mail@ru"
        .BodyFormat = olFormatHTML
        .htmlBody = htmlBody
        .Display
    End With
    Set newMail = Nothing
End Sub

Надеюсь, что я хоть немного доходчиво объяснил

[Noober89]

MS Outlook 2010. А можно ли на форме создать кнопку, через которую прикреплять файлы к письму? Т.е. это должна быть кнопка идентичная той, что при создании сообщения "Вложить файл". Я так понимаю это должно быть связано с AttachNewFile

[Noober89]

Нашел пока только это

Dim fDialog As Office.FileDialog
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

только ошибку выдает 438. Какую библиотеку подключать?