1
我设计了一个宏来转发电子邮件。下面的代码起草了一封电子邮件，在正文中添加了一些信息，并保留了电子邮件底部的原始内容。但唯一的问题是，当宏尝试转发电子邮件时，原始格式正在丢失。VBA转发电子邮件
此外，默认情况下，它显示我的电子邮件ID为From Address。相反，它应该是“[email protected]”。你可以帮我吗？
Sub Forward_Email()
Set objOL = CreateObject("Outlook.Application")
Set objMsg = objOL.ActiveInspector.CurrentItem
Set objForward = objMsg.Forward
objForward.Recipients.Add "[email protected]"
objForward.CC = "[email protected]"
objOrignialBody = objForward.Body
Workbooks.Open Filename:= _
"C:\Users\desktop\Email Distribution Control File.xlsx"
Sheets("Incorrect Device Type").Select
EmailLastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Cells.Find(What:="Subject", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Activate
BodyofEmail = ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
For emailrange = 6 To EmailLastRow - 1
If ActiveCell.Row > EmailLastRow Then
GoTo DraftEmail
Else
End If
BodyofEmail = BodyofEmail & vbCrLf & ActiveCell.Value
ActiveCell.Offset(1, 0).Activate
Next emailrange
DraftEmail:
objForward.Display
objForward.Body = BodyofEmail & vbCr & vbCr & vbCr & objOrignialBody
什么格式迷路？电子邮件的格式（即Rich Text vs. HTML vs.纯文本）还是Excel单元格格式（您在此代码中未捕获的格式）？ – 2013-05-03 16:37:50
嗨大卫，HTML格式正在迷失。这些信息对你有帮助吗？ – user2341632 2013-05-03 17:22:26
试试这个：http：//stackoverflow.com/questions/15758300/excel-vba-formatting-of-outlook-signature-is-gone – 2013-05-03 17:28:21