用EXCEL批量发布邮件时，对发件人和正文格式有些不懂，请教！

tx88msh

用了一位老师之前批量发布邮件的代码，进行了个别调整都OK，但有两个问题解决不了，请各位大神帮忙动动手改一下代码，感谢！！！1. 发件人：我需要用第二发件人发邮件，写了下面这行代码，但还是用默认第一发件人发送的，不知道问题在哪里？
Set .SendUsingAccount = objOutlook.Session.Accounts.Item(2)

2. 正文格式：目前正文通过引用excel表单元格中内容，但是想要调整字体和大小，用HTML写了，不过语法好像不对....
            .BodyFormat = olFormatHTML
            .Body = Cells(rowCount, 5)
            .HTMLBody = <Font Face='仿宋' Size = 11>


   正文想要实现的是：
  XX：（表格中A列单元格文字，靠左）
       最新计划详见附件。（前面空两行）


                                                          总部（靠右）
                                                 2020年1月15日（靠右）

蓝桥玄霜

HTML写法：

tx88msh

感谢回复，按您的代码我试了一下，也只是第一行可以改字体和大小。
我把那段同时复制在后面三行，第二行可以成功，但是最后两行好像就不行了，要么只能改字体，要么只能靠右，两者不可兼得。
能麻烦再帮忙看一下吗？

            '设置邮件内容
            .BodyFormat = olFormatHTML
             Hyp = "<p style=""font-family:仿宋;font-size:20px;"">" & Cells(rowCount, 1).Value & "分行:</p>" & " <blockquote><p style=""font-family:仿宋;font-size:20px;"">指标详见附件。</blockquote>" & "<p align=right><p style=""font-family:仿宋;font-size:20px;"">总部</p>" & "<p align=right><p style=""font-family:仿宋;font-size:20px;"">2020年1月16日</p>"
            .HTMLBody = Hyp

蓝桥玄霜

1. Hyp = "<style type=""text/css"">" & "p {font-family:仿宋;font-size:20px;}</style>"
   
2.             Hyp = Hyp & "<p> " & Cells(rowCount, 1).Value & "：</p>"
   
3.             Hyp = Hyp & "<blockquote style=""font-family:仿宋;font-size:20px"">"
   
4.             Hyp = Hyp & "最新计划详见附件。</blockquote>"
   
5.             Hyp = Hyp & "<p align=right>总部</p>" & _
   
6.             "<p align=right>2020年1月15日</p>"

复制代码