Note: The other languages of the website are Google-translated. Back to English

Làm thế nào để áp dụng một nút để gửi email có đính kèm tệp Word hiện tại? 

Nếu bạn cần gửi email từ tài liệu Word qua Outlook và đính kèm tệp Word hiện tại, bạn có thể tạo nút lệnh, sau đó gửi thư bằng cách bấm vào nút này mà không cần mở Outlook. Bài viết này, tôi sẽ giới thiệu cách xử lý nhanh chóng và dễ dàng.

Áp dụng nút để gửi email có đính kèm tệp Word hiện tại


Áp dụng nút để gửi email có đính kèm tệp Word hiện tại

Vui lòng thực hiện theo các bước sau để giải quyết công việc này trong tệp Word:

1. Trước tiên, bạn nên tạo một nút lệnh, vui lòng nhấp vào Nhà phát triển > Công cụ kế thừa > Nút lệnh (Điều khiển ActiveX), xem ảnh chụp màn hình:

nút doc để gửi email 1

2. Chọn nút và nhấp vào Bất động sản theo Nhà phát triển tab, trong Bất động sản , hãy nhập văn bản phụ đề bạn cần vào Chú thích trường, xem ảnh chụp màn hình:

nút doc để gửi email 2

3. Sau đó, đóng Bất động sản , bây giờ, hãy nhấp chuột phải vào nút và chọn Mã Chế độ xem, xem ảnh chụp màn hình:

nút doc để gửi email 3

4. Và sau đó, trong Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã dưới đây giữa các tập lệnh gốc, xem ảnh chụp màn hình:

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

nút doc để gửi email 4

Chú thích: Trong đoạn mã trên, bạn nên thay đổi chủ đề, nội dung hoặc địa chỉ gửi theo nhu cầu của bạn.

5. Sau đó, lưu và đóng mã này, nhấp vào Chế độ thiết kế để tắt chế độ thiết kế. Bây giờ, khi nhấp vào nút lệnh bạn đã tạo, một email sẽ được tạo với tài liệu Word hiện tại dưới dạng tệp đính kèm, hãy xem ảnh chụp màn hình:

nút doc để gửi email 5

6. Cuối cùng, bạn chỉ cần nhấp vào Gửi để gửi tin nhắn này.


Công cụ năng suất Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Nhận xét (29)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang cố gửi email với dòng tiêu đề là nội dung của một trong các trường của tôi. Điều này có khả thi không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Hola, tôi podrían apoyar para que el archivo se convierta en PDF y se adjunte al Correo en ves del word por ủng hộ.
Cám ơn rất nhiều.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Nhóm Văn phòng Mở rộng,

Tôi tin rằng 'xEmile' là sai. Nó phải là 'xEmail'.

Trong khi mã chạy và không có vấn đề gì, câu lệnh sau sẽ không có tác dụng gì:

Đặt xEmail = Không có gì
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào , Abhi,
Cảm ơn bạn đã nhận xét, như bạn đã nói, 'xEmile' bị sai, nó phải là 'xEmail'. Tôi đã cập nhật mã.
Cám ơn bạn một lần nữa!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này có thể được thực hiện để bạn chỉ gửi một trang của tài liệu không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Don,
Để giải quyết công việc của bạn, vui lòng áp dụng mã bên dưới , trong mã, bạn nên thay đổi trang bắt đầu và trang kết thúc thành của riêng bạn:

Private Sub CommandButton1_Click ()

Làm mờ xCurPageStart theo độ dài, xCurPageEnd theo độ dài, xCurPageRange theo phạm vi

Dim xCurPage dưới dạng số nguyên, xPages dưới dạng số nguyên

Làm mờ xOutlookObj dưới dạng đối tượng

Làm mờ xEmail dưới dạng đối tượng

Dim xDoc dưới dạng tài liệu, xNewDoc dưới dạng tài liệu

Dim xFilePath dưới dạng chuỗi

Dim xOldStart càng lâu, xOldEnd càng lâu

On Error Resume Next

Application.ScreenUpdating = Sai

Đặt xOutlookObj = CreateObject ("Outlook.Application")

Đặt xEmail = xOutlookObj.CreateItem (olMailItem)

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

Đặt xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Save

Tệp đính kèm xFilePath = xFilePath + "\ tệp đính kèm" + VBA.Mid (xDoc.FullName, VBA.InStrRev (xDoc.FullName, ".")) 'là tên tệp đính kèm, thay đổi theo nhu cầu của bạn

xCurPageStart = 2 'trang bắt đầu

xCurPageEnd = 2 'trang cuối

xPages = Selection.Information (wdNumberOfPagesInDocument)

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

Nếu xCurPage = xPages thì

xCurPageEnd = ActiveDocument.Content.End

Khác

xCurPageEnd = Selection.GoTo (what: = wdGoToPage, which: = wdGoToNext, Name: = xCurPageEnd + 1).

Cuối Nếu

Đặt xCurPageRange = ActiveDocument.Range (xCurPageStart, xCurPageEnd)

xCurPageRange.Select

xCurPageRange.Copy

Đặt xNewDoc = Application.Documents.Add (Hiển thị: = Sai)

xNewDoc.Activate

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName: = xFilePath

xNewDoc.Close

xDoc.Range (xOldStart, xOldEnd) .Select

Với xEmail

.Subject = "Fax-dữ liệu"

.Body = "Đây là một email thử nghiệm."

.To = "yy@addin99.com"

.Importance = olImportanceNormal

.Attachments.Add xFilePath

.Trưng bày

Kết thúc với

VBA.Kill xFilePath

Đặt xDoc = Không có gì

Đặt xEmail = Không có gì

Đặt xOutlookObj = Không có gì

Application.ScreenUpdating = True

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã tạo một biểu mẫu có thể điền trong MS word. Tôi đã sử dụng các công cụ kế thừa để tính toán, v.v. Tôi cũng đã thêm nút gửi để gửi biểu mẫu tới email. Vấn đề là khi tôi mở lại tài liệu này sau khi lưu, nó không hoạt động. Tôi thậm chí đã thử lưu nó dưới dạng tài liệu hỗ trợ macro nhưng không sử dụng được. Bạn có thể vui lòng giúp đỡ?
Cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Lúc đầu, tôi đã có nó hoạt động, và sau đó vì một số lý do, nó mang lại cho tôi lỗi 429 về thành phần activeX không thể tạo đối tượng. tôi thực sự chỉ cần sao chép và dán. Điều này đã hoạt động trước đây nhưng tôi chỉ thay đổi kích thước phông chữ, làm cho nút lớn hơn và chú thích được gắn nhãn lại. Tôi không nghĩ rằng tôi đã vô tình thay đổi một số cài đặt khác? bất kỳ ý tưởng những gì nó có thể là?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào! Tôi muốn đặt nút lệnh gửi một email với tài liệu Word làm phần nội dung của email (tài liệu word của tôi là một biểu mẫu). Có cách nào làm được việc này không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi muốn tài liệu của mình được gửi dưới dạng tài liệu PDF hơn là tài liệu word.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ví dụ: sử dụng văn bản từ hộp văn bản / trường văn bản trong tài liệu Word và chèn nó dưới dạng văn bản trong dòng chủ đề của E-mail của bạn?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vâng, đây cũng là những gì tôi đang tìm kiếm. Ai đó có thể giúp đỡ với yêu cầu này không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này cũng hoạt động cho Lotus Notes?
Tôi phải thay đổi điều gì trong "xOutlookObj"?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Mở rộng văn phòng,
Chúng tôi có thể đặt một email khác không được liên kết với Outlook không? Bạn muốn gửi email trực tiếp đến tài khoản GoDaddy?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đang cố gắng tìm hiểu thông tin tương tự. Tôi sử dụng gmail và tôi cần tạo một biểu mẫu để gửi đến nhiều địa chỉ email khác nhau có thể tự động gửi lại vào tài khoản gmail của tôi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã tạo tài liệu nhưng vấn đề của tôi bây giờ là nếu tôi gửi biểu mẫu này để nói rằng 4 người hoàn thành, khi họ mở nó lên từ tệp đính kèm email, nó sẽ mở ở chế độ chỉ đọc và khi họ nhấp vào gửi, biểu mẫu này sẽ yêu cầu họ lưu như trước. nó sẽ cho phép mã mở một địa chỉ email cho tôi. Có cách nào để giải quyết vấn đề này ngoài việc cung cấp cho họ vị trí của tệp không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Bạn có thể thêm Bcc vào mã này không? Tôi đã thử thêm Bcc và nhận được lỗi biên dịch cho biểu thức mong đợi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Heather,

Bạn có thể thêm Bcc vào mã này. Ví dụ: bạn có thể thêm .Bcc = "zmt@addin99.com" ngay bên dưới .To = "yy@addin99.com". Vì vậy, mã trở thành:

Làm mờ xOutlookObj dưới dạng đối tượng
Làm mờ xEmail dưới dạng đối tượng
Làm mờ xDoc dưới dạng tài liệu
Application.ScreenUpdating = Sai
Đặt xOutlookObj = CreateObject ("Outlook.Application")
Đặt xEmail = xOutlookObj.CreateItem (olMailItem)
Đặt xDoc = ActiveDocument
xDoc.Save
Với xEmail
.Subject = "Fax-dữ liệu"
.Body = "Đây là một email thử nghiệm."
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Trưng bày
Kết thúc với
Đặt xDoc = Không có gì
Đặt xEmail = Không có gì
Đặt xOutlookObj = Không có gì
Application.ScreenUpdating = True

Vui lòng xem hình đính kèm. Chúc một ngày tốt lành.
Trân trọng,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào các bạn,

Tôi muốn áp dụng một nút nơi tôi nhấp và gửi tài liệu dưới dạng email, không phải dưới dạng tệp đính kèm, đến một Địa chỉ Email. Vì vậy, tài liệu là văn bản của email. Cũng giống như sự xuất hiện của nút "gửi đến người nhận" trên dải băng.

Ai đó có thể cho tôi mã phù hợp cho điều đó không?

Cảm ơn bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Có thể mã không thể giúp gửi tài liệu word hiện tại dưới dạng nội dung email, nếu làm như vậy, hình ảnh và định dạng tệp trong tài liệu sẽ bị mất.
Nếu bạn muốn gửi tài liệu hiện tại dưới dạng nội dung email, Mail Merge có thể giúp bạn.
Bạn có cần kết hợp thư để gửi email không?
Nếu bạn cần, hãy bình luận tại đây.
Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,

cảm ơn sự giúp đỡ của bạn!

Tôi sẽ thử nó với gợi ý của bạn. Vì vậy, có, tôi cần Mail Merge để gửi E-Mail.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,

cảm ơn sự giúp đỡ của bạn!

Tôi sẽ thử nó với gợi ý của bạn. Bạn có thể cho tôi mã để trộn thư không?

Cảm ơn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,
Để gửi tài liệu word hiện tại dưới dạng nội dung thư, bạn có thể thêm Gửi đến Người nhận Thư lệnh cho bạn QAT, hãy làm như sau:
1. Mở tệp word mà bạn muốn gửi, sau đó nhấp vào Tập tin > Các lựa chọn.
2. Trên ngăn bên trái, chọn Thanh công cụ truy cập nhanh.
3. Lựa chọn Các lệnh không có trong ruy-băng từ Chọn lệnh từ.
4. Chọn và chọn Gửi đến Người nhận Thư và nhấp vào nút Thêm>>.
5. nhấp chuột OK để đóng hộp thoại.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Bây giờ điều này Gửi đến Người nhận Thư lệnh sẽ hiển thị trong Thanh công cụ truy cập nhanh ở đầu cửa sổ Word của bạn. Sau đó, bạn có thể chèn thông tin tương đối vào tiêu đề thư. Sau khi điền đầy đủ thông tin, vui lòng bấm vào Gửi một bản sao, thông báo với tài liệu từ hiện tại dưới dạng nội dung sẽ được gửi cùng một lúc.

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

Hãy thử điều này, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi đã tìm thấy nút hoạt động để mở email nhưng khi sử dụng mailmerge, nút VBA không hoạt động vì lý do nào đó?
Làm cách nào tôi có thể đảm bảo khi sử dụng kết hợp thư, nút sẽ hoạt động để người dùng hoàn thành biểu mẫu và sau đó kích hoạt nút?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Mike,
Khi tôi sử dụng tính năng trộn thư, nút này đang hoạt động.
Bạn có thể giải thích vấn đề của bạn chi tiết hơn?
Hoặc bạn có thể tải tệp của mình lên đây để chúng tôi có thể kiểm tra xem sự cố nằm ở đâu.
Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Skyyang,

Vui lòng xem bài đăng tôi đặt bên dưới có bản sao đính kèm.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Vui lòng xem tài liệu đính kèm bên dưới.
Tôi cần cập nhật nó để sử dụng cho lần gia hạn năm 2023 và khi hợp nhất, nút này dường như bị vô hiệu hóa do một số thành viên nói với tôi rằng nó không hoạt động.

Cảm ơn,

làm biếng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Mike,
Tôi đã kiểm tra tệp của bạn trong máy tính của tôi, nó còn tệ hơn. Tôi đang sử dụng Office 2019. Vui lòng xem bản demo bên dưới:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Skyyang,

Tôi thấy điều này hoạt động khi người dùng có MS Word nhưng có vẻ như các email như @hotmail; @gmail; và địa chỉ email @live mà những người dùng đó gặp sự cố khi nút không hoạt động?
Có vẻ như nó cũng không hoạt động trên điện thoại thông minh nếu người dùng dựa vào việc sử dụng những thứ này thay vì máy tính.
Cuối cùng, tôi đã nhận được phản hồi từ một người dùng khác sử dụng Windows 11 khi nút này hoàn toàn không hoạt động.

Bạn đã trải nghiệm những gì với các ví dụ trên xin vui lòng?

Cảm ơn,

làm biếng
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL