통합 문서의 다른 전자 메일에 다른 전자 메일 보내기 (Outlook 전자 메일 포함)

Question

통합 문서의 각 워크 시트에 전자 메일이 울렸으므로 전자 메일에 제목, 메시지 본문 및 서명이 포함 된 워크 시트를 보내고 싶습니다. 워크 시트의 주소.

제목이 정상적으로 작동하지만 메시지 본문과 서명이 올바르지 않습니다. 다음은 내 VBA 코드입니다. 제발, 정말로 당신의 도움이 필요합니다. 고마워요.

Sub Mail_every_Worksheet() 
    Dim sh As Worksheet 
    Application.ScreenUpdating = False 
    For Each sh In ThisWorkbook.Worksheets 
    On Error Resume Next 
     If sh.Range("g1").Value Like "*@*" Then 
      sh.Copy 
      ActiveWorkbook.SaveAs sh.Name, 56 
      ActiveWorkbook.SendMail ActiveSheet.Range("g1").Value, _ 
       sh.Name & " Data" 

      Kill ActiveWorkbook.FullName 
      ActiveWorkbook.Close False 
     End If 
    Next sh 
    Application.ScreenUpdating = True 
    Application.DisplayAlert = False 
End Sub 

제발, 정말 도움이 필요합니다. 정말 고마워요.

Answer 1

추측은 여기에 당신이 (경우에 Outlook을 사용하는)을 찾고있는 내용은 다음과 같습니다

Sub Mail_every_Worksheet() 
Dim sh As Worksheet 
Set Oapp = CreateObject("outlook.application") 
Set itm = Oapp.createitem(0) 

SigString = Environ("username") & "\Microsoft\Signatures\XXXX.htm" ' this is where your Outlook signture being saved, yours might be different from my path 

If Dir(SigString) <> "" Then 
    Signt = GetBoiler(SigString) 
Else 
    Signt = "" 
End If 

Application.ScreenUpdating = False 
For Each sh In ThisWorkbook.Worksheets 
On Error Resume Next 
    If sh.Range("g1").Value Like "*@*" Then 
     sh.Copy 
     ActiveWorkbook.SaveAs sh.Name, 56 
     With itm 
     .Subject = sh.Name & " Data" 
     .to = ActiveSheet.Range("g1").Value 
     .cc = "your cc email address" 
     .body = "here is the body" & Signt 
     .Attachments.Add (sh.Name & ".xls") 
     .send 
     End With 

     Kill ActiveWorkbook.FullName 
     ActiveWorkbook.Close False 
    End If 
Next sh 
Application.ScreenUpdating = True 
Application.DisplayAlert = False 
End Sub 

Function GetBoiler(ByVal sFile As String) As String 
Dim fso As Object 
Dim ts As Object 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) 
GetBoiler = ts.readall 
ts.Close 
End Function 

당신이 첨부 파일을 필요로하는 경우 확실하지 않다 당신은 다른 이름마다 그와 함께 통합 문서를 저장해야합니다 경우 보낼 전자 메일을 찾습니다

Answer 2

Alex의 대답이 효과적이지 않으면 통합 문서를 사용하여 매크로를 기록하고 수행하려는 작업을 수행하는 것이 좋습니다. 매크로의 vba 코드를보고 자동화를 위해 필요한 조정을하십시오.