Vba 将jpg附加到Outlook正文&；居中
我收到一封带有jpg附件的电子邮件时遇到问题，该附件应该在文本之前居中于顶部Vba 将jpg附加到Outlook正文&；居中,vba,outlook,Vba,Outlook,我收到一封带有jpg附件的电子邮件时遇到问题，该附件应该在文本之前居中于顶部 EmailBody是在此基础上定义的，而Target只是excel工作表中的一个名称（此宏是从循环范围的另一个宏调用的） 我认为问题在于如何声明outlook对象。Currenty errors out（一旦删除错误上的，转到行）位于Set-oAttach=colAttach.Add（“C:\Users\urderboy\Desktop\@\Meme.jpg”） 知道我哪里出错了吗？在outlook对象/属性方面经验
EmailBodyTarget，转到行）位于Set-oAttach=colAttach.Add（“C:\Users\urderboy\Desktop\@\Meme.jpg”）
知道我哪里出错了吗？在outlook对象/属性方面经验不丰富，并试图追随帖子，但运气不佳
子发件人（电子邮件正文作为字符串，目标作为范围）
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim OutApp作为对象
将邮件变暗为对象
转到BNP时出错：
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
Set colAttach=OutMail.Attachments
设置oAttach=colAttach.Add（“C:\Users\urderboy\Desktop\@\Meme.jpg”）
设置olkPA=oAttach.PropertyAccessor
olkPA.SetProperty PR_ATTACH_CONTENT_ID，“Meme.jpg”
发邮件
.SentonBehalfName=”urdearboy@so.com"
.to=目标.Offset（0,1）
.cc=目标.Offset（0,2）
.Subject=“签出此Meme”和Target.Offset（0,3）
.HTMLBody=“”_
& "" _
&“Hi”&目标偏移量（0，0）&“，”&“
”_
&电子邮件正文和“
”_
&“”&“
”&“谢谢”&“
”_
&“Urderboy”和“
”
'更改为。发送以实际发送电子邮件
.展示
目标偏移量（，-1）=“已发送”
以
法国巴黎银行：
设置应用程序=无
发送邮件=无
端接头
您缺少常量声明
Sub Sender(EmailBody As String, Target As Range)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim OutApp As Object
Dim OutMail As Object
Dim colattach As Object
Dim oAttach As Object
Dim olkPA As Object
On Error GoTo BNP:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set colattach = OutMail.Attachments
Set oAttach = colattach.Add("C:\Users\urdearboy\Desktop\@\Meme.jpg")
Set olkPA = oAttach.PropertyAccessor
Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001F" ' <-----This line
olkPA.SetProperty PR_ATTACH_CONTENT_ID, "Meme.jpg"
With OutMail
.SentOnBehalfOfName = "urdearboy@so.com"
.to = Target.Offset(0, 1)
.cc = Target.Offset(0, 2)
.Subject = "Check Out This Meme " & Target.Offset(0, 3)
.HTMLBody = "<p style = 'font-family:arial' >" _
& "<BODY><CENTER><IMG src =""cid:Meme.jpg""></CENTER></BODY>" _
& "Hi " & Target.Offset(0, 0) & ", " & "<br>" _
& EmailBody & "</p>" _
& "<p style = 'font-family:arial' >" & "<br>" & "Thanks, " & "<br>" _
& "urdearboy" & "</p>"
'Change to .Send to actually send emails
.Display
Target.Offset(, -1) = "Sent"
End With
BNP:
Set OutApp = Nothing
Set OutMail = Nothing
End Sub
子发件人（电子邮件正文作为字符串，目标作为范围）
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim OutApp作为对象
将邮件变暗为对象
作为对象附加
作为对象
作为对象的Dim olkPA
转到BNP时出错：
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
Set colattach=OutMail.Attachments
设置oAttach=colattach.Add（“C:\Users\urderboy\Desktop\@\Meme.jpg”）
设置olkPA=oAttach.PropertyAccessor
Const PR_ATTACH_CONTENT_ID=”http://schemas.microsoft.com/mapi/proptag/0x3712001F“您缺少常量声明
Sub Sender(EmailBody As String, Target As Range)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim OutApp As Object
Dim OutMail As Object
Dim colattach As Object
Dim oAttach As Object
Dim olkPA As Object
On Error GoTo BNP:
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set colattach = OutMail.Attachments
Set oAttach = colattach.Add("C:\Users\urdearboy\Desktop\@\Meme.jpg")
Set olkPA = oAttach.PropertyAccessor
Const PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001F" ' <-----This line
olkPA.SetProperty PR_ATTACH_CONTENT_ID, "Meme.jpg"
With OutMail
.SentOnBehalfOfName = "urdearboy@so.com"
.to = Target.Offset(0, 1)
.cc = Target.Offset(0, 2)
.Subject = "Check Out This Meme " & Target.Offset(0, 3)
.HTMLBody = "<p style = 'font-family:arial' >" _
& "<BODY><CENTER><IMG src =""cid:Meme.jpg""></CENTER></BODY>" _
& "Hi " & Target.Offset(0, 0) & ", " & "<br>" _
& EmailBody & "</p>" _
& "<p style = 'font-family:arial' >" & "<br>" & "Thanks, " & "<br>" _
& "urdearboy" & "</p>"
'Change to .Send to actually send emails
.Display
Target.Offset(, -1) = "Sent"
End With
BNP:
Set OutApp = Nothing
Set OutMail = Nothing
End Sub
子发件人（电子邮件正文作为字符串，目标作为范围）
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim OutApp作为对象
将邮件变暗为对象
作为对象附加
作为对象
作为对象的Dim olkPA
转到BNP时出错：
Set-OutApp=CreateObject（“Outlook.Application”）
Set-OutMail=OutApp.CreateItem（0）
Set colattach=OutMail.Attachments
设置oAttach=colattach.Add（“C:\Users\urderboy\Desktop\@\Meme.jpg”）
设置olkPA=oAttach.PropertyAccessor
Const PR_ATTACH_CONTENT_ID=”http://schemas.microsoft.com/mapi/proptag/0x3712001F"'出于好奇，该常量是什么？它是DASL属性，outlook使用它设置/获取嵌入附件的名称出于好奇，该常量是什么？它是DASL属性，outlook使用它设置/获取嵌入附件的名称