메인 컨텐츠로 가기

현재 Word 파일이 첨부 된 이메일을 보내는 버튼을 적용하는 방법은 무엇입니까? 

Outlook을 통해 Word 문서에서 전자 메일 메시지를 보내고 현재 Word 파일도 첨부해야하는 경우 명령 단추를 만든 다음 Outlook을 열지 않고이 단추를 클릭하여 메시지를 보낼 수 있습니다. 이 기사에서는 빠르고 쉽게 처리하는 방법을 소개합니다.

현재 Word 파일이 첨부 된 이메일을 보내기위한 버튼 적용


현재 Word 파일이 첨부 된 이메일을 보내기위한 버튼 적용

Word 파일에서이 작업을 해결하려면 다음 단계를 수행하십시오.

1. 먼저 명령 버튼을 생성해야합니다. 개발자 > 레거시 도구 > 명령 버튼 (ActiveX 제어), 스크린 샷 참조 :

이메일을 보낼 문서 버튼 1

2. 버튼을 선택하고 등록 아래 개발자 탭에서 등록 창에 필요한 캡션 텍스트를 입력하십시오. 표제 필드, 스크린 샷 참조 :

이메일을 보낼 문서 버튼 2

3. 그런 다음 등록 이제 버튼을 마우스 오른쪽 버튼으로 클릭하고 코드보기, 스크린 샷 참조 :

이메일을 보낼 문서 버튼 3

4. 그런 다음 표시된 응용 프로그램 용 Microsoft Visual Basic 창에서 원본 스크립트 사이에 아래 코드를 복사하여 붙여 넣으십시오. 스크린 샷을 참조하십시오.

Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = ""
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

이메일을 보낼 문서 버튼 4

주의 사항: 위 코드에서 필요에 따라 제목, 본문 또는 보낸 주소를 변경해야합니다.

5. 그런 다음이 코드를 저장하고 닫고 디자인 모드 디자인 모드를 끕니다. 이제 생성 한 명령 버튼을 클릭하면 현재 Word 문서가 첨부 된 이메일이 생성됩니다. 스크린 샷을 참조하십시오.

이메일을 보낼 문서 버튼 5

6. 마지막으로 클릭하면 전송 버튼을 눌러이 메시지를 보냅니다.

최고의 사무 생산성 도구

Word 용 Kutools - Over로 단어 경험을 향상시키세요 100 놀라운 기능!

🤖 Kutools AI 도우미: AI로 글쓰기를 변화시키세요 - 콘텐츠 생성  /  텍스트 다시 쓰기  /  문서 요약  /  정보 문의 문서 기반, 모두 Word 내에서

📘 문서 숙달: 페이지 분할  /  문서 병합  /  다양한 형식으로 선택 항목 내보내기(PDF/TXT/DOC/HTML...)  /  PDF로 일괄 변환  /  페이지를 이미지로 내보내기  /  한 번에 여러 파일 인쇄...

컨텐츠 편집: 일괄 찾기 및 바꾸기 여러 파일에 걸쳐  /  모든 사진 크기 조정  /  테이블 행과 열 바꾸기  /  표를 텍스트로 변환...

🧹 손쉬운 청소: 쓸어버리다 추가 공간  /  섹션 나누기  /  모든 헤더  /  텍스트 상자  /  하이퍼 링크  / 더 많은 제거 도구를 보려면 다음 페이지를 방문하세요. 그룹 제거...

광고 삽입물: 삽입 천 단위 구분 기호  /  확인란  /  라디오 버튼  /  QR 코드  /  바코드  /  대각선 표  /  방정식 캡션  /  이미지 캡션  /  테이블 캡션  /  여러 장의 사진  / 더 자세히 알아보세요. 그룹 삽입...

🔍 정밀한 선택: 핀포인트 특정 페이지  /  테이블  /  모양  /  제목 단락  / 탐색 기능 향상 배우기 기능 선택...

스타 강화: 어떤 위치로든 빠르게 이동  /  반복되는 텍스트 자동 삽입  /  문서 창 간을 원활하게 전환합니다.  /  11 변환 도구...

👉 이러한 기능을 사용해 보고 싶으신가요? Word 용 Kutools는 다음을 제공합니다. 60 일 무료 사용, 제한 없음! 🚀
 
Comments (30)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hey, in my case the button works well but not in a Word document saved with a password. Can somebody help me to fix this?
Best regards
This comment was minimized by the moderator on the site
Hi Skyyang,

I found this works when a user has MS Word but it seems emails like @hotmail; @gmail; and @live email addresses those users have issues where the button doesn't work?
It seems it also doesnt work on smart phones either if the user relies on using these as opposed to a computer.
Lastly I've had a response from another user using Windows 11 where the button doesn't work at all.

What have you experienced with the above examples please?

Thanks,

Mike
This comment was minimized by the moderator on the site
Hi,
Please see the document attached below.
I need to update it for the 2023 renewals use and when merging the button seems to become disabled as several members told me it doesnt work.

Thanks,

Mike
This comment was minimized by the moderator on the site
Hello, Mike,
I have tested your file in my computor, it wors well. I am using Office 2019. Please see the below demo:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
This comment was minimized by the moderator on the site
I have found the button works to open an email but when using mailmerge the VBA button becomes inactive for some reason?
How can I ensure when mailmerging is used the button will work for user to complete the form and then activate the button please?
This comment was minimized by the moderator on the site
Hello, Mike,
When I use mailmerge feature, the button is in active.
Could you explain your problem more detailed?
Or you can upload your file here, so that we can check where the problem is.
Thank you!
This comment was minimized by the moderator on the site
Hi Skyyang,

Please see the post I put in below which has the copy attached.
This comment was minimized by the moderator on the site
Hello folks,

I want to apply a button where I click and send the document as email, not as an attachement, to one Email-Adress. So that the document is the text of the email. Just like the effekt of the button "send to recipient" on the ribbon.

Can someone give me the right code for that?

Thank you.
This comment was minimized by the moderator on the site
Hello,
May be the code can't help to send the current word document as the email body, if to do, the picture and file formatting within the document will be lost.
If you want to send the current document as email body, the Mail Merge can do you a favor.
Do you need the Mail Merge for sending email?
If you need, please comment here.
Thank you!
This comment was minimized by the moderator on the site
Hello,

thank you for your help!

I would try it with your suggestion. Could u give me the code for mail merge?

Thanks!
This comment was minimized by the moderator on the site
Hello,
To send current word document as mail body, you can add the Send to Mail Recipient command to your QAT, please do as this:
1. Open your word file that you want to send, and then click File > Options.
2. On the left pane, select Quick Access Toolbar.
3. Select Commands Not in the Ribbon from the Choose commands from.
4. Choose and select Send to Mail Recipient and click the button Add > >.
5. Click OK to close the dialog.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Now, this Send to Mail Recipient command will show up in the Quick Access Toolbar at the top of your Word window. Then, you can insert the relative information into the message header. After finishing the information, please click Send a copy, the message with current word document as body will be sent at once.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-3.png

Please try this, hope it can help you!
This comment was minimized by the moderator on the site
Hello,

thank you for your help!

I would try it with your suggestion. So yes, I need the Mail Merge for sending E-Mail.
This comment was minimized by the moderator on the site
Hello Heather,

You can add Bcc to this code. For example, you can add .Bcc = "" just below .To = "". So the code becomes:

Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
.Subject = "Fax-data"
.Body = "This is a test email."
.To = ""
.Bcc = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True

Please see the attached picture. Have a nice day.
Sincerely,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
This comment was minimized by the moderator on the site
Can you add Bcc to this code? I have tried adding Bcc and receive a compile error for expected expression.
This comment was minimized by the moderator on the site
I have create the document but my issue  now is that if I send this form to say 4 people to complete, when they open it up from the email attachment it opens in read only mode and when they click submit it asks them to save as before it will allow the code to open an email addressed to me. Is there a way around this other than giving them the location of the file?
This comment was minimized by the moderator on the site
Hi Extend office,
Can we set a different email not linked to Outlook? Like direct email to GoDaddy account?
This comment was minimized by the moderator on the site
I am trying to find out the same information. I use gmail and I need to create a form to send out to varies different email address that can automatically submit back to my gmail account.
This comment was minimized by the moderator on the site
Does this also work for Lotus Notes?
What must I change in "xOutlookObj"?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations