이 기사에서는 전자 메일의 첨부 파일로 시트를 보내는 매크로를 만듭니다.

매크로를 실행하기 전에 이메일 ID와 이메일 제목을 지정해야합니다.

ArrowMain

이 예에서는 “DataSheet”를 전자 메일의 첨부 파일로 보내려고합니다.

ArrowSentMail

논리 설명

텍스트 상자에서 이메일 ID와 이메일 제목을 가져 오는 “MailSheet”매크로를 만들었습니다. “DataSheet”의 새 복사본을 만들고 저장 한 다음 첨부 파일로 보냅니다.

코드 설명

Sheets ( “DataSheet”). Copy 위 코드는 새 통합 문서에서 “DataSheet”의 복사본을 만드는 데 사용됩니다.

ActiveWorkbook.SaveAs “Part of”& ThisWorkbook.Name _ & “”& StrDate & “.xls”

위 코드는 새 통합 문서를 저장하는 데 사용됩니다.

ActiveWorkbook.SendMail EmailID, MailSubject 위 코드는 지정된 제목과 함께 활성 통합 문서를 지정된 전자 메일 ID에 첨부 파일로 보내는 데 사용됩니다.

ActiveWorkbook.Close False 위의 코드는 저장하지 않고 활성 통합 문서를 닫는 데 사용됩니다.

아래 코드를 따르세요

Sub MailSheet()

'Declaring variables

Dim StrDate, EmailID, MailSubject As String

'Getting value for Email ID and subject from textboxes

EmailID = Sheet1.TextBox1.Value

MailSubject = Sheet1.TextBox2.Value

'Copying "DataSheet" to new workbook

Sheets("DataSheet").Copy

'Formatting date and time to particular format

StrDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm")

'Saving active workbook with new name

ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _

& " " & StrDate & ".xls"

'Sending mail

ActiveWorkbook.SendMail EmailID, MailSubject

'Close the active workbook

ActiveWorkbook.Close False

End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요