在 Html 邮箱正文的同一行连接变量字符串，Outlook VBA

Sub Send_Email()
 
    Dim objOutlookApp As New Outlook.Application
 
    Dim myEmail As Outlook.MailItem
     Set myEmail = objOutlookApp.CreateItem(olMailItem)
      myEmail.BodyFormat = olFormatHTML
       myEmail.Display
'___________________
 
    Dim str As String: str = "My Text"
 
    Dim Strbody As String
 
    Dim Style As String: Style = "<p style=font-size:12.5pt;font-family:Georgia>"
    Dim Line1 As String: Line1 = "&emsp;&emsp; Attached file contains </p>" & str  'this add str on the next line
 
    Strbody = Style & Line1
 
    myEmail.HTMLBody = Strbody & myEmail.HTMLBody
 
End Sub

Dim Style As String: Style = "<p style=font-size:12.5pt;font-family:Georgia>"
Dim Line1 As String: Line1 = "&emsp;&emsp; Attached file contains " & str & "</p>"

Html相关问答推荐

UseEffect()从不调用preact

如何使我的组织 struct 图的连接线响应？

HTML表行悬停仅适用于偶数行

对称渐变作为背景

我无法使用背景图像css，因为我在VS代码中将照片放在不同的文件夹中

调整一组IMG的大小以适应容器DIV

具有可展开行的棱角material 表(垫子表)，折叠时行之间仍有间隙

Chatbox底部显示新消息，并向上推送旧消息

静态DIV的标签，显示从窗体输入的值

网格中的图像zoom 不正确

MUI 日期 Select 器要包含的日期

如何使粘性导航栏能够跨其他组件工作？

如何使Bootstrap 5卡可点击

如何调整边框半径以匹配父边框半径

拨动switch 在重新加载时未重置

使用 calc 函数设置字体大小时 Flexbox 项目重叠

HTML 如何根据屏幕尺寸调整/裁剪视频背景？

把标题、段落和图片放在一起

如何让 Reindeer 居中

自定义进度条 Html 和 CSS 布局