Question

如何将项目符号添加到电子邮件模板的@Override public void onActivityCreated(@Nullable Bundle savedInstanceState) { super.onActivityCreated(savedInstanceState); String[] quotes = getResources().getStringArray(R.array.quotes); CustomArrayAdapter customArrayAdapter = new CustomArrayAdapter(getContext(),quotes,null); listView.setAdapter(customArrayAdapter); listView.setOnItemClickListener(new AdapterView.OnItemClickListener() { @Override public void onItemClick(AdapterView<?> parent, View view, int position, long id) { fragmentCommunicator.fragmentRespond(position); } }); }部分？

我希望我的电子邮件正文如下所示：

随附了DATE AM的文档。

已邮寄

3个文档

已收到

7个文档

下面是我当前的代码，除了Mailed and Receive字样下没有多余的空格：

.Body

我刚接触VBA。我搜索了论坛，但找不到所需的内容。

Answer 1

如上所述，您将需要使用HTML，可以使用.HTMLBody而不是.Body轻松实现。如果您只需要几个子弹，就可以使其简单。这应该可以帮助您入门。您想要一个无序列表<ul>，您将在其中添加列表项<li>

Sub CreateNewMail()
Dim obApp As Object
Dim NewMail As MailItem

Set obApp = Outlook.Application
Set NewMail = obApp.CreateItem(olMailItem)

'You can change the concrete info as per your needs
With NewMail
     .Subject = "Docs " & Format(Date, "m.d.yy") & " AM"
     .To = "Mr Nobody"
     .HTMLBody = "Attached are the docs for " & Format(Date, "m.d.yy") & " AM" & _
     "<p>Mailed</p>" & _
     "<ul><li>3 Documents</li></ul>" & _
     "<p>Received</p>" & _
     "<ul><li>7 Documents</li></ul>"
     .Display
End With

Set obApp = Nothing
Set NewMail = Nothing
End Sub

如何将项目符号添加到电子邮件模板的.Body部分？

1 个答案: