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

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

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

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

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

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

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

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 = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

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

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

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

추천 단어 생산 도구

샷 kutools word kutools plus tab 1180x120

Word용 Kutools - Word용 100개 이상의 고급 기능으로 50% 시간 절약

복잡하고 반복되는 작업은 몇 초 만에 한 번 처리 할 수 있습니다.
여러 폴더의 이미지를 한 번에 Word 문서에 삽입합니다.
폴더에있는 여러 Word 파일을 원하는 순서대로 하나로 병합하고 결합합니다.
제목, 섹션 나누기 또는 기타 기준에 따라 현재 문서를 별도의 문서로 분할합니다.
Doc과 Docx, Docx와 PDF, 일반적인 변환 및 선택을위한 도구 모음 등의 파일 변환 ...

더 읽기 다운로드 매수

코멘트 (29)

아직 평가가 없습니다. 가장 먼저 평가하세요!

니콜

약 3 년 전

#29086

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

내 필드 중 하나의 내용인 제목으로 이메일을 보내려고 합니다. 이게 가능해?

종달새

약 3 년 전

#31666

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

Hola, me podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
정말 감사합니다.

Abhi

약 2 년 전

#33125

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요 익스텐드 오피스 팀입니다.

'xEmile'은 철자가 틀린 것 같아요. 'xEmail'이어야 합니다.

코드가 실행되고 문제가 없는 동안 다음 문은 아무 작업도 수행하지 않습니다.

xEmail = 없음 설정

스카이양 Abhi

약 2 년 전

#33126

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 아비,
귀하의 의견에 감사드립니다. 귀하가 말했듯이 'xEmile'은 철자가 틀리므로 'xEmail'이어야 합니다. 코드를 업데이트했습니다.
다시 감사합니다!

보고서

돈 패터슨

약 2 년 전

#33152

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

문서의 한 페이지만 보내도록 할 수 있습니까?

스카이양 돈 패터슨

약 2 년 전

#33153

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 돈
작업을 처리하려면 아래 코드를 적용하십시오. 코드에서 시작 페이지와 끝 페이지를 자신의 것으로 변경해야 합니다.

Private Sub CommandButton1_Click ()

Dim xCurPageStart As Long, xCurPageEnd As Long, xCurPageRange As Range

Dim xCurPage를 정수로, xPages를 정수로

Dim xOutlookObj를 개체로

xEmail을 개체로 흐리게 처리

Dim xDoc을 문서로, xNewDoc을 문서로

Dim xFilePath를 문자열로

Dim xOldStart As Long, xOldEnd As Long

오류에 대한 다음 재개

Application.ScreenUpdating = False

xOutlookObj = CreateObject("Outlook.Application") 설정

xEmail 설정 = xOutlookObj.CreateItem(olMailItem)

xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)

xDoc = ActiveDocument 설정

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.저장

xFilePath = xFilePath + "\attached file" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) '첨부 파일은 첨부 파일 이름, 필요에 따라 변경

xCurPageStart = 2 '시작 페이지

xCurPageEnd = 2 '종료 페이지

xPages = Selection.Information(wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo(what:=wdGoToPage, which:=wdGoToNext, 이름:=xCurPageStart).Start

xCurPage = xPages이면

xCurPageEnd = ActiveDocument.Content.End

다른

xCurPageEnd = Selection.GoTo(무엇:=wdGoToPage, 무엇:=wdGoToNext, 이름:=xCurPageEnd + 1).Start

END IF

xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd) 설정

xCurPageRange.Select

xCurPageRange.Copy

xNewDoc = Application.Documents.Add(Visible:=False) 설정

xNewDoc.활성화

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 파일 이름:=xFilePath

xNewDoc.닫기

xDoc.Range(xOldStart, xOldEnd).선택

xEmail로

.Subject = "팩스 데이터"

.Body = "테스트 이메일입니다."

.받는 사람 = "yy@addin99.com"

.Importance = olImportanceNormal

.Attachments.xFilePath 추가

.디스플레이

끝

VBA. xFilePath 죽이기

xDoc = 없음 설정

xEmail = 없음 설정

xOutlookObj = 없음 설정

Application.ScreenUpdating = True

최종 하위

보고서

타우시프

약 2 년 전

#33308

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

MS 워드로 채울 수 있는 양식을 만들었습니다. 계산 등을 위해 레거시 도구를 사용했습니다. 또한 양식을 이메일로 보내는 데 사용되는 제출 버튼을 추가했습니다. 문제는 이 문서를 저장 후 다시 열면 작동하지 않는다는 것입니다. 매크로 사용 문서로 저장하려고 시도했지만 아무 소용이 없습니다. 도와주시겠습니까?
감사

앤드류

약 2 년 전

#33369

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

처음에는 작동시켰는데 어떤 이유에서인지 ActiveX 구성 요소가 개체를 생성할 수 없다는 오류 429가 표시됩니다. 말 그대로 그냥 복사해서 붙여넣었습니다. 이것은 이전에 작동했지만 글꼴 크기를 변경하고 버튼을 더 크게 만들고 캡션에 레이블을 다시 지정했습니다. 내가 실수로 다른 설정을 변경했다고 생각하지 않습니까? 그것이 무엇인지 알 수 있습니까?

산티아고

약 2 년 전

#33966

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕! 나는 명령 버튼을 이메일 본문으로 Word 문서와 함께 이메일을 보내도록 하고 싶습니다(내 단어 문서는 양식입니다). 방법이 있나요?

길 리드베터

약 2 년 전

#34202

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

내 문서를 워드 문서가 아닌 PDF 문서로 보내고 싶습니다.

라세 젠슨

약 2 년 전

#34249

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

예를 들어 Word 문서의 텍스트 상자/텍스트 필드에서 텍스트를 사용하고 전자 메일의 제목 줄에 텍스트로 삽입하시겠습니까?

마크 크레인 라세 젠슨

약 1 년 전

#34250

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

예, 이것은 또한 제가 추구하는 것입니다. 아무도 이 요청을 도와줄 수 있습니까?

자크

약 2 년 전

#34491

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

Lotus Notes에서도 작동합니까?
"xOutlookObj"에서 무엇을 변경해야 합니까?

께로

약 1 년 전

#34794

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요 익스텐드 오피스입니다.
Outlook에 연결되지 않은 다른 이메일을 설정할 수 있습니까? GoDaddy 계정으로 직접 이메일을 보내시겠습니까?

셀비 께로

약 1 년 전

#34795

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

같은 정보를 찾아보려고 합니다. 나는 Gmail을 사용하고 있으며 내 Gmail 계정에 자동으로 다시 제출할 수 있는 다양한 이메일 주소로 보낼 양식을 만들어야 합니다.

리차드 버드

약 1 년 전

#36757

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

문서를 만들었지만 지금 내 문제는 이 양식을 보내서 4명이 완료하라고 말하면 이메일 첨부 파일에서 열 때 읽기 전용 모드로 열리고 제출을 클릭하면 이전과 같이 저장하도록 요청한다는 것입니다. 그것은 코드가 나에게 주소가 지정된 이메일을 열 수 있도록합니다. 파일 위치를 알려주는 것 외에 다른 방법이 있습니까?

히스

약 7 개월 전

#38547

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

이 코드에 숨은 참조를 추가할 수 있습니까? 숨은 참조 추가를 시도했는데 예상 표현에 대한 컴파일 오류가 발생했습니다.

맨디저우

약 7 개월 전

#38673

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요 헤더님

이 코드에 숨은 참조를 추가할 수 있습니다. 예를 들어, .To = "yy@addin99.com" 바로 아래에 .Bcc = "zmt@addin99.com"을 추가할 수 있습니다. 따라서 코드는 다음과 같습니다.

Dim xOutlookObj를 개체로
xEmail을 개체로 흐리게 처리
문서로 Dim xDoc
Application.ScreenUpdating = False
xOutlookObj = CreateObject("Outlook.Application") 설정
xEmail 설정 = xOutlookObj.CreateItem(olMailItem)
xDoc = ActiveDocument 설정
xDoc.저장
xEmail로
.Subject = "팩스 데이터"
.Body = "테스트 이메일입니다."
.받는 사람 = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Importance = olImportanceNormal
.Attachments.xDoc.FullName 추가
.디스플레이
끝
xDoc = 없음 설정
xEmail = 없음 설정
xOutlookObj = 없음 설정
Application.ScreenUpdating = True

첨부된 그림을 참조하십시오. 좋은 하루 되세요.
감사합니다.
맨디

https://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png

보고서

hpeyease

약 6 개월 전

#39310

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요 여러분,

하나의 Email-Adress에 첨부파일이 아닌 이메일로 문서를 클릭하여 보내는 버튼을 적용하고 싶습니다. 문서가 이메일의 텍스트가 되도록. 리본의 "받는 사람에게 보내기" 버튼의 효과와 같습니다.

누군가 나에게 그에 대한 올바른 코드를 줄 수 있습니까?

고맙습니다.

스카이양 hpeyease

약 6 개월 전

#39356

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요
코드가 현재 단어 문서를 이메일 본문으로 보내는 데 도움이 되지 않을 수 있습니다. 그렇게 하면 문서 내의 그림과 파일 형식이 손실됩니다.
현재 문서를 이메일 본문으로 보내려면 편지 병합이 도움이 될 수 있습니다.
이메일을 보내기 위해 편지 병합이 필요합니까?
필요하시면 여기 댓글 부탁드립니다.
감사합니다!

보고서

hpeyease 스카이양

약 6 개월 전

#39368

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요

도와 주셔서 감사합니다!

나는 당신의 제안으로 그것을 시도 할 것입니다. 예, 전자 메일을 보내려면 편지 병합이 필요합니다.

hpeyease 스카이양

약 6 개월 전

#39369

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요

도와 주셔서 감사합니다!

나는 당신의 제안으로 그것을 시도 할 것입니다. 편지 병합 코드를 알려주시겠습니까?

감사합니다!

스카이양 hpeyease

약 5 개월 전

#39500

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요
현재 워드 문서를 메일 본문으로 보내려면 메일 수신자에게 보내기 당신에게 명령 QAT, 다음과 같이하십시오.
1. 보내고 싶은 워드 파일을 연 후 입양 부모로서의 귀하의 적합성을 결정하기 위해 미국 이민국에 > 옵션 중.
2. 왼쪽 창에서 빠른 액세스 도구 모음.
3. 선택 리본에없는 명령 인사말 에서 명령 선택.
4. 선택 및 선택 메일 수신자에게 보내기 버튼을 클릭하십시오. 추가>>.
5. 클릭 OK 대화 상자를 닫습니다.

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

자, 이거 메일 수신자에게 보내기 명령이 나타납니다 빠른 액세스 도구 모음 Word 창 상단에 있습니다. 그런 다음 메시지 헤더에 관련 정보를 삽입할 수 있습니다. 정보를 입력하신 후 다음을 클릭하세요. 사본 보내기, 현재 워드 문서를 본문으로 하는 메시지가 한번에 전송됩니다.

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

이것을 시도하십시오, 그것이 당신을 도울 수 있기를 바랍니다!

보고서

마이크 메이슨

약 2 개월 전

#41477

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

버튼이 이메일을 여는 데 작동하지만 mailmerge를 사용할 때 어떤 이유로 VBA 버튼이 비활성화된다는 것을 알았습니다.
메일 병합을 사용할 때 사용자가 양식을 완성한 다음 버튼을 활성화할 수 있도록 버튼이 작동하는지 어떻게 확인할 수 있습니까?

보고서

스카이양 마이크 메이슨

약 2 개월 전

#41566

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 마이크
편지 병합 기능을 사용하면 버튼이 활성화됩니다.
문제를 더 자세히 설명해 주시겠습니까?
또는 여기에 파일을 업로드하여 문제가 있는 위치를 확인할 수 있습니다.
감사합니다!

보고서

마이크 메이슨 스카이양

약 2 개월 전

#41710

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요 스카이양입니다.

복사가 첨부 된 아래 내가 넣은 게시물을 참조하십시오.

보고서

마이크 메이슨

약 2 개월 전

#41641

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕,
아래 첨부된 문서를 참조하시기 바랍니다.
2023년 갱신 사용을 위해 업데이트해야 하고 병합할 때 여러 회원이 작동하지 않는다고 말하면서 버튼이 비활성화된 것 같습니다.

감사합니다,

마이크

첨부 파일보기 (1 / 5)

보고서

스카이양 마이크 메이슨

약 2 개월 전

#41738

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕, 마이크
내 컴퓨터에서 파일을 테스트했는데 잘 작동합니다. Office 2019를 사용하고 있습니다. 아래 데모를 참조하십시오.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif

보고서

마이크 메이슨

약 1 개월 전

#42138

이 댓글은 사이트의 중재자에 의해 최소화되었습니다

안녕하세요 스카이양입니다.

사용자가 MS Word를 가지고 있을 때 이것이 작동한다는 것을 알았지만 @hotmail과 같은 이메일인 것 같습니다. @gmail; 버튼이 작동하지 않는 문제가 있는 사용자의 @live 이메일 주소는 무엇입니까?
사용자가 컴퓨터가 아닌 스마트폰을 사용하는 경우 스마트폰에서도 작동하지 않는 것 같습니다.
마지막으로 버튼이 전혀 작동하지 않는 Windows 11을 사용하는 다른 사용자로부터 응답을 받았습니다.

위의 예를 통해 어떤 경험을 하셨습니까?

감사합니다,

마이크

보고서

아직 코멘트가 없습니다

여러분의 의견을 남겨

게스트로 게시

로그인

이름 (필수)

이메일 (필수)

이 게시물 평가 :

다시 쓰기

0 등장 인물

나는에 동의 약관 및 조건