Excel создает электронную почту Outlook, но текст не выравнивается

У меня есть прикрепленный файл, который создает квитанцию ​​для отправки по электронной почте клиенту. Я пытаюсь получить второе поле для выравнивания в электронной почте Outlook, но пока не нашел решения. Попробовали Chr9, vbTab, просто добавили пробелы и т. Д. Решения были бы очень благодарны – я не представляю, как его огромная задача исправить, но в настоящее время она оказывается неуловимой.

Sub GenerateEmails() Dim ce As String: ce = "[email protected]" 'create draft emails Dim OutApp As Object, OutMail As Object Set OutApp = CreateObject("Outlook.Application") On Error GoTo cleanup If ce Like "?*@?*.?*" Then Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .TO = ce .CC = "" .Subject = "Receipt" .Body = "Payment Amount: " & "$10,000" & vbNewLine & _ "Receipt Num: " & "R645-81658" & vbNewLine & _ "Sales Rep: " & "Ben Smith" & vbNewLine & _ "Date Received: " & "05 July 2016" .Display End With On Error GoTo 0 Set OutMail = Nothing End If cleanup: Set OutApp = Nothing Application.ScreenUpdating = True End Sub 

благодаря

 Sub Email() Dim ol As Outlook.Application Dim olMsg As Outlook.MailItem Set ol = New Outlook.Application Set olMsg = ol.CreateItem(olMailItem) olMsg.BodyFormat = olFormatHTML olMsg.HTMLBody = "<TABLE><TR><TD>Cell 1</td><td>Value 1</td></tr>" & _ "<TR><TD>Cell 2</td><td>Value 2</td></tr>" & _ "<TR><TD>Cell 3</td><td>Value 3</td></tr></table>" olMsg.Display End Sub 

Кроме того, вы можете использовать шрифт, который имеет одинаковый размер для каждого символа, например Courier? и используйте maxmimum, скажем, 100 пробелов, затем сделайте left("data to be added " & string(100," "),100)

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

  .Body = "Payment Amount: " & "$10,000" & vbNewLine & _ "Receipt Num: " & "R645-81658" & vbNewLine & _ "Sales Rep: " & "Ben Smith" & vbNewLine & _ "Date Received: " & "05 July 2016" 

Это выровнено для меня. Но это не идеально, и это может быть, следуя советам @Nathan_Sav и используя таблицу.

  • Экспорт электронной почты / органа электронной почты с темой «ПРЕДУПРЕЖДЕНИЕ: Ошибка доставки сообщений» из Outlook 2007
  • Экспорт данных электронной почты Automail в Excel и обратно
  • Попытка открыть шаблон электронной почты Outlook с помощью excel VBA
  • PHP создает электронную таблицу Excel, а затем посылает ее по электронной почте в виде вложения
  • Автоматические почтовые сообщения Outlook с использованием VBA
  • Excel Macro для создания электронных писем работает только при открытии IDE
  • Добавьте адрес электронной почты в сообщение электронной почты Outlook, если значение ячейки равно 1
  • Office 2013 - VBA Email не отображает переменные To / CC / BCC
  • Excel: ошибка во время выполнения '-2147319779 (8002801d)':
  • Excel VBA для поиска в почтовых сообщениях Outlook
  • Программно подавить сообщение электронной почты электронной почты Outlook с помощью Excel VBA
  • Interesting Posts

    как получить excel для обработки даты как даты, а не строки при выполнении CopyFromRecordset

    .xlsx и xls (последние версии) в pdf с использованием python

    Ошибка 1004 при использовании PasteSpecial с Transpose

    Если столбец имеет повторяющиеся значения, проверьте дубликат в другом столбце

    найти текст в столбце на одном листе и скопировать данные строки на другой лист

    найти среднее значение для нескольких значений в строках и столбцах в Excel

    Формулы массива и PasteSpecial: = Форматы

    Вычисляемое значение VBA в виде даты или валюты

    .xlsx загружает файл, но не может открыть

    автоматически запускать «удалять дубликаты» на VBA

    работа с разными книгами по одному и тому же коду

    VBA-Excel Ищите имена столбцов, возвращайте их число и используйте буквы в функции

    Могу ли я использовать VBA для копирования форматирования ячейки, т. Е. Значения обработки как строки, а не числа?

    Добавление двух столбцов вместе и запись суммы в один столбец с помощью openpyxl

    Как переключить жирный или курсив, если ячейка находится в режиме редактирования?

    Давайте будем гением компьютера.