Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
如何获取Excel生成的电子邮件,以自动使用单元格值填充主题?_Excel_Vba - Fatal编程技术网

如何获取Excel生成的电子邮件,以自动使用单元格值填充主题?

如何获取Excel生成的电子邮件,以自动使用单元格值填充主题?,excel,vba,Excel,Vba,我正在尝试让Excel在生成电子邮件时用特定的单元格值自动填充主题行。 目前,我的电子邮件处理代码为: Sub EmailStage1Answers() ' ' EmailStage1Answers Macro Dim wb1 As Workbook Dim TempFilePath As String Dim TempFileName As String Dim FileExtStr As String Dim OutApp As Object Dim OutMail As Object W

我正在尝试让Excel在生成电子邮件时用特定的单元格值自动填充主题行。
目前,我的电子邮件处理代码为:

Sub EmailStage1Answers()
'
' EmailStage1Answers Macro
Dim wb1 As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim OutApp As Object
Dim OutMail As Object

With Application
    .ScreenUpdating = False
    .EnableEvents = False
End With

Set wb1 = ActiveWorkbook
TempFilePath = Environ$("temp") & "\"
TempFileName = "Copy of " & wb1.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss")
FileExtStr = "." & LCase(Right(wb1.Name, Len(wb1.Name) - InStrRev(wb1.Name, ".", , 1)))

wb1.SaveCopyAs TempFilePath & TempFileName & FileExtStr

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

On Error Resume Next
With OutMail
    .to = "EMAIL HIDDEN FOR POSTING"
    .CC = ""
    .BCC = ""
    .Subject = "Assessment Form, Stage 1 ***INSERT PROJECT NAME***"
    .Body = "Please see the latest copy of the Assessment Form attached.  NOTE: Please ensure you have inserted the project name above."
    .Attachments.Add TempFilePath & TempFileName & FileExtStr
    .display
End With
On Error GoTo 0
Kill TempFilePath & TempFileName & FileExtStr

Set OutMail = Nothing
Set OutApp = Nothing

With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
End Sub
工作簿总共有19页,我想从第三页的特定单元格填充主题。

有人能提供建议吗?

我不知道它是否适用,但您看过word中的邮件合并吗?它会做到这一点
Subject=“评估表,第1阶段”&此工作簿。工作表(“”)。范围(“”)。值
页码无效,除非您的意思是有19个工作表名。此外,您需要按照上面的Zac指定行和列。