带有Excel生成的电子邮件的nextline vba

道格外套

通过互联网后,我仍然遇到了在Excel生成的电子邮件中插入新行的问题。

我已经尝试了以下代码:

 Email = "[email protected]"
 Subj = "Subject"
 body = "Hello Person," & vbCr & _
 "message" & vbCr & _
 "Example: " & vbCr & _
 "another example" & vbCr & _
 "another example" & vbCr & _
 "Thank you. "

 body = "Hello Person," & vbCr & _
 body = body & "message" & vbCr & _
 etc etc

我尝试了

 body = "Hello Person," & vbNewline & _
 body = body & "message" & vbNewline & _
 etc etc

第一个示例工作正常,但没有多余的行。第二个示例抛出不匹配错误

对这个问题有什么想法吗?

在此处输入图片说明 生成电子邮件的代码

 URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg & "        " & body
 ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

 Private Declare Function ShellExecute Lib "shell32.dll" _
 Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
 ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As           String, _
 ByVal nShowCmd As Long) As Long
sous2817

这将与@Slubee的答案非常相似,但是我认为它更加完整,希望能帮助您查明问题。试试这个代码:

Option Explicit

Sub test()
    Dim email As String, _
        subj As String, _
        body As String

    email = "[email protected]"
    subj = "Subject goes here"
    body = "Hello Person," & vbNewLine & _
            "message" & vbNewLine & _
            "Example:" & vbNewLine & _
            "another example" & vbNewLine & _
            "another example" & vbNewLine & _
            "Thank you. "

    MsgBox body

    body = "Hello Person," & vbCr & _
            "message" & vbCr & _
            "Example:" & vbCr & _
            "another example" & vbCr & _
            "another example" & vbCr & _
            "Thank you. "

    MsgBox body
End Sub

您会看到它们产生相同的结果(并且与您截图中的内容相匹配)。我的意思是,我认为问题出在您对body变量的处理方式上,而不是Excel / VBA构造字符串的方式上。

这是一些代码,可使用Outlook创建可提供预期结果的电子邮件。如果您未使用Outlook,则必须弄清用于生成电子邮件的程序:

Option Explicit

    Sub test()
        Dim email As String, _
            subj As String, _
            body As String

        Dim OutApp As Object, _
            OutMail As Object

        email = "[email protected]"
        subj = "Subject goes here"

        body = "Hello Person," & vbCr & _
                "message" & vbCr & _
                "Example:" & vbCr & _
                "another example" & vbCr & _
                "another example" & vbCr & _
                "Thank you. "

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        On Error Resume Next
            With OutMail
                .To = email
                .CC = ""
                .BCC = ""
                .Subject = subj
                .body = body
                .Display
            End With
        On Error GoTo 0

        Set OutMail = Nothing
        Set OutApp = Nothing
    End Sub

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

带有Excel生成的电子邮件的nextline vba

来自分类Dev

Excel VBA发送带有多个附件的电子邮件

来自分类Dev

Excel VBA发送带有可变数量的附件的电子邮件

来自分类Dev

Excel VBA 代码生成电子邮件但使 Outlook 崩溃

来自分类Dev

发送带有附件..VBA代码的电子邮件

来自分类Dev

发送带有附件的电子邮件 VBA

来自分类Dev

电子邮件中的附件VBA excel

来自分类Dev

VBA Excel 电子邮件格式问题

来自分类Dev

Vba 电子邮件生成器,来自 excel 电子表格的主题

来自分类Dev

用于发送带有附件的电子邮件的VBA循环还包括所有先前迭代的附件

来自分类Dev

带有粘贴图表和文本的VBA电子邮件

来自分类Dev

VBA从当前用户地址发送带有CDO的电子邮件

来自分类Dev

VBA脚本回复的电子邮件不显示带有紫色箭头的回复图标

来自分类Dev

如何使用带有VBA脚本的规则过滤Outlook电子邮件?

来自分类Dev

使用 VBA 在 Outlook 正文中发送带有 PNG 图像的电子邮件

来自分类Dev

使用VBA中的表格生成格式完整的电子邮件

来自分类Dev

使用 VBA 如何将选定的 Excel 单元格发送到带有 html 格式的电子邮件正文?

来自分类Dev

VBA函数解析电子邮件正文以获取电子邮件地址,并写入Excel

来自分类Dev

Excel VBA:根据日期获取电子邮件主题

来自分类Dev

通过VBA从Excel发送电子邮件附件

来自分类Dev

Excel VBA验证自动电子邮件状态

来自分类Dev

Excel VBA代码从Outlook中检索电子邮件

来自分类Dev

从Excel VBA将签名插入Outlook电子邮件

来自分类Dev

VBA复制电子邮件正文到Excel作为表

来自分类Dev

Excel VBA,如何回复特定的电子邮件

来自分类Dev

Excel 2010电子邮件VBA发送整个工作簿

来自分类Dev

使用VBA从Excel格式化电子邮件正文

来自分类Dev

Q Excel VBA发送电子邮件

来自分类Dev

通过VBA从Excel发送电子邮件附件

Related 相关文章

  1. 1

    带有Excel生成的电子邮件的nextline vba

  2. 2

    Excel VBA发送带有多个附件的电子邮件

  3. 3

    Excel VBA发送带有可变数量的附件的电子邮件

  4. 4

    Excel VBA 代码生成电子邮件但使 Outlook 崩溃

  5. 5

    发送带有附件..VBA代码的电子邮件

  6. 6

    发送带有附件的电子邮件 VBA

  7. 7

    电子邮件中的附件VBA excel

  8. 8

    VBA Excel 电子邮件格式问题

  9. 9

    Vba 电子邮件生成器,来自 excel 电子表格的主题

  10. 10

    用于发送带有附件的电子邮件的VBA循环还包括所有先前迭代的附件

  11. 11

    带有粘贴图表和文本的VBA电子邮件

  12. 12

    VBA从当前用户地址发送带有CDO的电子邮件

  13. 13

    VBA脚本回复的电子邮件不显示带有紫色箭头的回复图标

  14. 14

    如何使用带有VBA脚本的规则过滤Outlook电子邮件?

  15. 15

    使用 VBA 在 Outlook 正文中发送带有 PNG 图像的电子邮件

  16. 16

    使用VBA中的表格生成格式完整的电子邮件

  17. 17

    使用 VBA 如何将选定的 Excel 单元格发送到带有 html 格式的电子邮件正文?

  18. 18

    VBA函数解析电子邮件正文以获取电子邮件地址,并写入Excel

  19. 19

    Excel VBA:根据日期获取电子邮件主题

  20. 20

    通过VBA从Excel发送电子邮件附件

  21. 21

    Excel VBA验证自动电子邮件状态

  22. 22

    Excel VBA代码从Outlook中检索电子邮件

  23. 23

    从Excel VBA将签名插入Outlook电子邮件

  24. 24

    VBA复制电子邮件正文到Excel作为表

  25. 25

    Excel VBA,如何回复特定的电子邮件

  26. 26

    Excel 2010电子邮件VBA发送整个工作簿

  27. 27

    使用VBA从Excel格式化电子邮件正文

  28. 28

    Q Excel VBA发送电子邮件

  29. 29

    通过VBA从Excel发送电子邮件附件

热门标签

归档