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

Làm cách nào để chèn chữ ký Outlook khi gửi email trong Excel?

Giả sử bạn muốn gửi email trực tiếp trong Excel, làm cách nào bạn có thể thêm chữ ký Outlook mặc định trong email? Bài viết này cung cấp hai phương pháp giúp bạn thêm chữ ký Outlook khi gửi email trong Excel.

Chèn chữ ký vào email Outlook khi gửi bằng Excel VBA
Dễ dàng chèn chữ ký Outlook khi gửi email trong Excel với một công cụ tuyệt vời

Các hướng dẫn khác để gửi thư trong Excel ...


Chèn chữ ký vào email Outlook khi gửi bằng Excel VBA

Ví dụ: có một danh sách các địa chỉ email trong một trang tính, để gửi email đến tất cả các địa chỉ này trong Excel và thêm chữ ký Outlook mặc định trong email. Vui lòng áp dụng mã VBA dưới đây để đạt được nó.

1. Mở trang tính chứa danh sách địa chỉ email bạn muốn gửi email đến, sau đó nhấn Khác + F11 phím.

2. Trong phần mở đầu Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > mô-đun, và sau đó sao chép bên dưới VBA 2 vào cửa sổ Mã mô-đun.

3. Bây giờ bạn cần thay thế .Thân hình xếp hàng vào VBA 2 với mã trong VBA 1. Sau đó, di chuyển dòng .Trưng bày dưới dòng Với xMailOut.

VBA 1: Mẫu gửi email với chữ ký mặc định của Outlook trong Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Gửi email đến các địa chỉ email được chỉ định trong các ô trong Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Ảnh chụp màn hình sau có thể giúp bạn dễ dàng tìm thấy sự khác biệt sau khi thay đổi mã VBA.

4. Nhấn nút F5 phím để chạy mã. Sau đó a Kutools cho Excel hộp chọn bật lên, vui lòng chọn địa chỉ email bạn sẽ gửi email đến, sau đó nhấp vào OK.

Sau đó, các email được tạo. Bạn có thể thấy chữ ký mặc định của Outlook được thêm vào cuối nội dung email.

Lời khuyên:

  • 1. Bạn có thể thay đổi nội dung email trong mã VBA 1 dựa trên nhu cầu của bạn.
  • 2. Sau khi chạy mã, nếu hộp thoại lỗi bật lên cảnh báo rằng kiểu Người dùng xác định không được xác định, vui lòng đóng hộp thoại này, sau đó nhấp vào CÔNG CỤ > dự án trong Microsoft Visual Basic cho các ứng dụng cửa sổ. Trong phần mở đầu Tài liệu tham khảo - VBAProject cửa sổ, kiểm tra Thư viện đối tượng Microsoft Outlook hộp và nhấp vào OK. Và sau đó chạy lại mã.

Dễ dàng chèn chữ ký Outlook khi gửi email trong Excel với một công cụ tuyệt vời

Nếu bạn là một thành viên mới trong VBA, đây rất khuyến khích Gửi email tiện ích của Kutools cho Excel cho bạn. Với tính năng này, bạn có thể dễ dàng gửi email dựa trên các trường nhất định trong Excel và thêm chữ ký Outlook vào chúng. Hãy làm như sau.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

Trước tiên, bạn cần tạo một danh sách gửi thư với các trường khác nhau mà bạn sẽ gửi email dựa trên.

Bạn có thể tạo danh sách gửi thư theo cách thủ công khi cần hoặc áp dụng tính năng Tạo danh sách gửi thư để nhanh chóng hoàn thành công việc.

1. nhấp chuột Kutools Plus > Tạo danh sách gửi thư.

2. bên trong Tạo danh sách gửi thư hộp thoại, chỉ định các trường bạn cần, chọn nơi xuất danh sách, sau đó bấm vào OK .

3. Bây giờ một mẫu danh sách gửi thư được tạo. Vì đây là danh sách mẫu, bạn cần thay đổi các trường thành nội dung cần thiết nhất định. (nhiều hàng được phép)

4. Sau đó, chọn toàn bộ danh sách (bao gồm tiêu đề), nhấp vào Kutools Plus > Gửi email.

5. bên trong Gửi email hộp thoại:

  • 5.1) Các mục trong danh sách gửi thư đã chọn được tự động đặt vào các trường tương ứng;
  • 5.2) Hoàn thành nội dung email;
  • 5.3) Kiểm tra cả hai Gửi email qua OutlookSử dụng cài đặt chữ ký của Outlook những cái hộp;
  • 5.4) Nhấp vào Gửi cái nút. Xem ảnh chụp màn hình:

Bây giờ các email đã được gửi đi. Và chữ ký Outlook mặc định được thêm vào cuối nội dung email.

  Nếu bạn muốn dùng thử miễn phí (30-day) của tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Các bài liên quan:

Gửi email đến các địa chỉ email được chỉ định trong các ô trong Excel
Giả sử bạn có một danh sách các địa chỉ email và bạn muốn gửi hàng loạt email đến các địa chỉ email này trực tiếp trong Excel. Làm thế nào để đạt được nó? Bài viết này sẽ chỉ cho bạn các phương pháp gửi email đến nhiều địa chỉ email được chỉ định trong các ô trong Excel.

Gửi email bằng cách sao chép và dán một dải ô được chỉ định vào nội dung email trong Excel
Trong nhiều trường hợp, một loạt nội dung cụ thể trong trang tính Excel có thể hữu ích trong giao tiếp qua email của bạn. Trong bài viết này, chúng tôi sẽ giới thiệu phương pháp gửi email với phạm vi được chỉ định dán vào nội dung email trực tiếp trong Excel.

Gửi email với nhiều tệp đính kèm trong Excel
Bài viết này nói về cách gửi email qua Outlook với nhiều tệp đính kèm được đính kèm trong Excel.

Gửi email nếu ngày đến hạn đã được đáp ứng trong Excel
Ví dụ: nếu ngày đến hạn trong cột C nhỏ hơn hoặc bằng 7 ngày (ngày hiện tại là ngày 2017/9/13), thì hãy gửi lời nhắc qua email đến người nhận được chỉ định trong cột A với nội dung được chỉ định trong cột B. Cách thực hiện Đạt được nó? Bài viết này sẽ cung cấp một phương pháp VBA để giải quyết nó một cách chi tiết.

Tự động gửi email dựa trên giá trị ô trong Excel
Giả sử bạn muốn gửi email qua Outlook đến một người nhận nhất định dựa trên một giá trị ô được chỉ định trong Excel. Ví dụ: khi giá trị của ô D7 trong trang tính lớn hơn 200, thì một email sẽ được tạo tự động. Bài viết này giới thiệu một phương pháp VBA để bạn nhanh chóng giải quyết vấn đề này.

Các hướng dẫn khác để gửi thư trong Excel ...


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
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
cảm ơn bạn rất nhiều, bạn cứu mạng tôi với mẫu này: D
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Favio thân mến,
Rất vui được giúp đỡ.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
không hoạt động với tệp đính kèm trong Office 2016
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chris thân mến,
Mã VBA dưới đây có thể giúp bạn. Sau khi chạy mã, vui lòng chọn các ô chứa địa chỉ email bạn sẽ gửi email đến, sau đó chọn tệp bạn cần đính kèm trong email dưới dạng tệp đính kèm khi hộp thoại thứ hai bật lên. Và chữ ký Outlook mặc định cũng sẽ được hiển thị trong nội dung email. Cảm ơn bình luận của bạn.

Sub SendEmailToAddressInCells ()
Dim xRg theo phạm vi
Dim xrgeach dưới dạng phạm vi
Làm mờ xRgVal dưới dạng chuỗi
Dim xaddress dưới dạng chuỗi
Dim xOutApp As Outlook.
Làm mờ xMailOut dưới dạng Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Đặt xRg = Application.InputBox ("Vui lòng chọn phạm vi địa chỉ email", "KuTools For Excel", xAddress,,,,, 8)
Nếu xRg không có gì thì thoát Sub
Application.ScreenUpdating = Sai
Đặt xOutApp = CreateObject ("Outlook.Application")
Đặt xRg = xRg.SpecialCells (xlCellTypeConstants, xlTextValues)
Đặt xFileDlg = Application.FileDialog (msoFileDialogFilePicker)
Nếu xFileDlg.Show = -1 Thì
Đối với mỗi xRgEach Trong xRg
xRgVal = xRgEach.Value
Nếu xRgVal Like "?*@?*.?*" thì
Đặt xMailOut = xOutApp.CreateItem (olMailItem)
Với xMailOut
.Trưng bày
.To = xRgVal
.Subject = "Kiểm tra"
.HTMLBody = "Đây là email thử nghiệm gửi trong Excel" & "
"& .HTMLBody
Đối với mỗi xFileDlgItem Trong xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
XFileDlgItem tiếp theo
'.Gửi
Kết thúc với
Cuối Nếu
Sau
Đặt xMailOut = Không có gì
Đặt xOutApp = Không có gì
Application.ScreenUpdating = True
Cuối Nếu
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 đang cố gắng thêm chữ ký triển vọng có tiêu đề "mặc định" nhưng có vẻ như nó không hoạt động.
bạn có thể vui lòng giúp đỡ? Tôi tin rằng logic "xMailout" của tôi là sai. đây là khu vực bị lỗi nghi ngờ của tôi.

Private Sub CommandButton1_Click ()

Dim xOutApp làm đối tượng
Làm mờ xOutMail làm đối tượng
Dim xMailBody dưới dạng chuỗi
Làm mờ xMailOut dưới dạng Outlook.MailItem
On Error Resume Next
Đặt xOutApp = CreateObject ("Outlook.Application")
Đặt xOutMail = xOutApp.CreateItem (0)
xMailBody = "Lời chào:" & vbNewLine & vbNewLine & _
"Đây là dòng 1" & vbNewLine & _
"Đây là dòng 2" & vbNewLine & _
"Đây là dòng 3" & vbNewLine & _
"Đây là dòng 4"
On Error Resume Next
Với xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "Tiêu đề Email Đây -" & Phạm vi ("Ô #"). Giá trị
.Body = xMailBody
. Attachments.Add ActiveWorkbook.FullName
Đặt xMailOut = xOutApp.CreateItem (olMailItem)
Với xMailOut
.Trưng bày
Kết thúc với
ActiveWorkbook.Save
Về lỗi GoTo 0
Đặt xOutMail = Không có gì
Đặt xOutApp = Không có gì
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
Good day,
Tập lệnh của bạn đã được sửa đổi, hãy thử. Cảm ơn bạn.

Private Sub CommandButton1_Click ()
Dim xOutApp làm đối tượng
Làm mờ xOutMail làm đối tượng
Dim xMailBody dưới dạng chuỗi
Làm mờ xMailOut dưới dạng Outlook.MailItem
On Error Resume Next
Đặt xOutApp = CreateObject ("Outlook.Application")
Đặt xOutMail = xOutApp.CreateItem (0)
xMailBody = "Lời chào:" & vbNewLine & vbNewLine & _
"Đây là dòng 1" & vbNewLine & _
"Đây là dòng 2" & vbNewLine & _
"Đây là dòng 3" & vbNewLine & _
"Đây là dòng 4"
On Error Resume Next
Với xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "Tiêu đề Email Đây -" & Phạm vi ("Ô #"). Giá trị
.Body = xMailBody
.Attachments.Add ActiveWorkbook.FullName
Đặt xMailOut = xOutApp.CreateItem (olMailItem)
Với xMailOut
.Trưng bày
Kết thúc với
Kết thúc với
ActiveWorkbook.Save
Về lỗi GoTo 0
Đặt xOutMail = Không có gì
Đặt xOutApp = Không có gì
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
cách thêm chữ ký nếu macro được nhiều người dùng sử dụng.
ví dụ: macro của tôi cũng sẽ được điều hành bởi 3 người khác. Vậy làm thế nào để macro có thể sử dụng chữ ký của người dùng đang chạy macro.
cảm ơn trước
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Mã VBA có thể tự động nhận dạng chữ ký mặc định trong Outlook của người gửi và gửi email có chữ ký của chính họ thông qua Outlook.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu văn bản nội dung của tôi được liên kết để kéo từ các trường excel, việc sử dụng & .HTMLBody ở cuối chuỗi sẽ xóa tất cả văn bản nội dung và chỉ để lại chữ ký.
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 gặp sự cố khi chạy phần mềm này trên excel 2016. Tôi nhận được thông báo "Lỗi biên dịch: Loại không được xác định do người dùng xác định". Hãy giúp 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
Tuyệt vời!!!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
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, tôi cần trợ giúp với macro của mình, tôi cần chèn chữ ký Outlook dưới bảng, bạn có thể giúp tôi điều đó được không?

Private Sub CommandButton1_Click ()


Làm mờ triển vọng dưới dạng đối tượng
Làm mờ email mới làm đối tượng
Dim xInspect làm đối tượng
Trang mờTrình chỉnh sửa làm đối tượng

Đặt outlook = CreateObject ("Outlook.Application")
Đặt newEmail = outlook.CreateItem (0)

Với newEmail
.To = Sheet5.Range ("F1")
.CC = ""
.BCC = ""
.Subject = Sheet5.Range ("B5")
.Body = Sheet5.Range ("B41")
.trưng bày

Đặt xInspect = newEmail.GetIns rà
Đặt pageEditor = xInspect.WordEditor

Sheet5.Range ("B6: I7"). Sao chép

pageEditor.Application.Selection.Start = Len (.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)

.trưng bày
Đặt trangEditor = Không có gì
Đặt xInspect = Không có gì
Kết thúc với

Đặt newEmail = Không có gì
Đặt triển vọng = Không có gì

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
Chào Bara,
Xin lỗi không thể giúp bạn với điều đó. Cám ơn bạn đã góp ý.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Kính thưa,
Ai đó có thể giúp tôi với VBA của tôi,
Tôi cần chữ ký trong email đã tạo:
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nhờ bạn, tôi có thể thêm chữ ký bây giờ nhưng sau đó nó xóa khoảng cách giữa các đoạn văn bản. Xin vui lòng bạn có thể giúp tôi ?


Sub helloworld ()
Làm mờ ứng dụng dưới dạng đối tượng
Dim OutMail làm đối tượng
Làm mờ ô dưới dạng phạm vi
Làm mờ đường dẫn dưới dạng chuỗi
Đường dẫn = Application.ActiveWorkbook.Path
Đặt OutApp = CreateObject ("Outlook.Application")

Đối với mỗi ô trong phạm vi ("C4: C6")
Đặt OutMail = OutApp.CreateItem (0)
Với OutMail
.Trưng bày
.To = ô.Giá trị
.Subject = Cells (cell.Row, "D"). Giá trị
.HTMLBody = "Dear" & Cells (cell.Row, "B"). Giá trị & "," _
& vbNewLine & vbNewLine & _
"Chào đón nồng nhiệt" _
& vbNewLine & vbNewLine & _
"Chúng tôi, JK ở nước ngoài, muốn nhân cơ hội và giới thiệu công ty JK ở nước ngoài của chúng tôi, đã tham gia vào lĩnh vực kinh doanh muối trong 3 năm qua. Chúng tôi hiện đang phát triển mạnh trong nước và mở rộng ra nước ngoài. Chúng tôi là nhà cung cấp Muối ăn, Nước làm mềm muối, muối khử băng, muối công nghiệp "&". " _
& vbNewLine & vbNewLine & _
"Chúng tôi có mối quan hệ với các nhà sản xuất quy mô lớn ở Ấn Độ và thu mua từ họ Muối chất lượng và hàng xuất khẩu. Vì vậy, chúng tôi đang tìm kiếm một nhà nhập khẩu chuyên gia đáng tin cậy cũng như đại lý phân phối để thực hiện Kinh doanh lâu dài cùng có lợi" & " . " _
& vbNewLine & vbNewLine & _
"Vui lòng liên hệ với chúng tôi khi có yêu cầu của bạn hoặc đối với bất kỳ yêu cầu nào khác mà bạn có thể có. Chúng tôi cung cấp dịch vụ hậu cần đáng tin cậy và giao hàng đúng hẹn. Chúng tôi tự tin rằng giá cả cạnh tranh nhất sẽ phù hợp với mong đợi của bạn" & "." _
& vbNewLine & vbNewLine & _
.HTMLBody

'.Gửi
Kết thúc với
Ô tiếp theo
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 đang cố gắng tích hợp mã này vào định dạng hiện tại mà tôi hiện có, nhờ đó tôi có thể tự động hóa email trong excel dựa trên một phạm vi giá trị đã đặt. Bất kỳ trợ giúp nào liên quan đến nơi thêm mã 'chữ ký' trong những gì tôi hiện có sẽ được đánh giá cao.

Public Sub CheckAndSendMail ()

'Cập nhật Extendoffice 2018 / 11 / 22

Dim xrgdate là phạm vi

Dim xrgsend dưới dạng phạm vi

Dim xRgText dưới dạng phạm vi

Dim xRgDone As Range

Dim xOutApp làm đối tượng

Làm mờ xMailItem làm đối tượng

Dim xLastRow miễn là dài

Làm mờ vbCrLf dưới dạng chuỗi

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

Làm mờ xRgDateVal thành chuỗi

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

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

Dim I As Long

On Error Resume Next

'Vui lòng chỉ định phạm vi ngày đến hạn

xStrRang = "D2: D110"

Đặt xRgDate = Range (xStrRang)

'Vui lòng chỉ định phạm vi địa chỉ email của người nhận

xStrRang = "C2: C110"

Đặt xRgSend = Range (xStrRang)

xStrRang = "A2: A110"

Đặt xRgName = Range (xStrRang)

'Chỉ định phạm vi có nội dung được nhắc nhở trong email của bạn

xStrRang = "Z2: Z110"

Đặt xRgText = Range (xStrRang)

xLastRow = xRgDate.Rows.Count

Đặt xRgDate = xRgDate (1)

Đặt xRgSend = xRgSend (1)

Đặt xRgName = xRgName (1)

Đặt xRgText = xRgText (1)

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

Đối với I = 1 Đến xLastRow

xRgDateVal = ""

xRgDateVal = xRgDate.Offset (I - 1) .Value

Nếu xRgDateVal <> "" Thì

Nếu CDate (xRgDateVal) - Ngày <= 30 Và CDate (xRgDateVal) - Ngày> 0 Thì

xRgSendVal = xRgSend.Offset (I - 1) .Value

xMailSubject = "Thỏa thuận dịch vụ JBC hết hạn" & xRgDateVal

vbCrLf = "

"

xMailBody = ""

xMailBody = xMailBody & "Dear" & xRgName.Offset (I - 1) .Value & vbCrLf

xMailBody = xMailBody & "" & xRgText.Offset (I - 1) .Value & vbCrLf

xMailBody = xMailBody & ""

Đặt xMailItem = xOutApp.CreateItem (0)

Với xMailItem

.Subject = xMailSubject

.To = xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

.Trưng bày

'.Gửi

Kết thúc với

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

Cuối Nếu

Cuối Nếu

Sau

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

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
Đó là mã thực sự hữu ích
Tôi cần thay đổi định dạng văn bản từ phải sang trái Trong dòng xOutMsg
xin vui lòng giúp đỡ.
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 gửi từng trang tính từ excel tới các email khác nhau, nhưng nó sẽ chỉ đính kèm chính sổ làm việc. Ngoài ra, cần có thể thêm dòng chữ ký của tôi vào. Bạn có cần trợ giúp không? Sub AST_Email_From_Excel ()

Làm mờ email Ứng dụng dưới dạng Đối tượng
Dim emailItem As Object

Đặt emailApplication = CreateObject ("Outlook.Application")
Đặt emailItem = emailApplication.CreateItem (0)

'Bây giờ chúng tôi xây dựng email.

emailItem.to = Range ("e2"). Giá trị

emailItem.CC = Phạm vi ("g2"). Giá trị

emailItem.Subject = "Thiết bị thanh lý kỹ thuật chưa được hoàn thiện"

emailItem.Body = "Xem bảng tính đính kèm để biết các mục chưa hoàn trả trong khu vực của bạn"

'Đính kèm Sổ làm việc hiện tại
emailItem.Attachments.Add ActiveWorkbook.FullName

'Đính kèm bất kỳ tệp nào từ máy tính của bạn.
'emailItem.Attachments.Add ("C: \ ...)"

'Gửi email
'emailItem.send

'Hiển thị email để người dùng có thể thay đổi nó như mong muốn trước khi gửi
emailItem.Display

Đặt emailItem = Không có gì
Đặt emailApplication = Không có gì

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
Xin chào Chris, Mã bạn cung cấp đã được sửa đổi. Chữ ký Outlook hiện có thể được chèn vào nội dung thư. Hãy thử nó. Cảm ơn bạn. Sub AST_Email_From_Excel ()
'Cập nhật Extendoffice 20220211
Làm mờ email Ứng dụng dưới dạng Đối tượng
Dim emailItem As Object
Đặt emailApplication = CreateObject ("Outlook.Application")
Đặt emailItem = emailApplication.CreateItem (0)

'Bây giờ chúng tôi xây dựng email.
emailItem.Display 'Hiển thị email để người dùng có thể thay đổi nó như mong muốn trước khi gửi
emailItem.to = Range ("e2"). Giá trị
emailItem.CC = Phạm vi ("g2"). Giá trị
emailItem.Subject = "Thiết bị thanh lý kỹ thuật chưa được hoàn thiện"
emailItem.HTMLBody = "Xem bảng tính đính kèm để biết các mục chưa hoàn trả trong khu vực của bạn" & " "& emailItem.HTMLBody

'Đính kèm Sổ làm việc hiện tại
emailItem.Attachments.Add ActiveWorkbook.FullName

Đặt emailItem = Không có gì
Đặt emailApplication = Không có gì

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
Xin chào Crystal, Cảm ơn bạn đã giúp nó thêm chữ ký, tuy nhiên, có vẻ như không thích phần HTMLBody. Khi tôi chạy macro, nó sẽ gỡ lỗi trên emailItem.HTMLBody = "Xem bảng tính đính kèm để biết các mục chưa xử lý trong khu vực của bạn" & " "& emailItem.HTMLBodyand không hoàn thành phần còn lại.  
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 đang sử dụng phiên bản Excel nào? Mã VBA sau đây cũng có thể giúp bạn. Hãy thử nó. Cảm ơn phản hồi của bạn. Sub SendWorkSheet ()
'Cập nhật bởi Extendoffice 20220218
Dim xFile dưới dạng chuỗi
Dim xFormat càng lâu càng tốt
Làm mờ Wb dưới dạng sổ làm việc
Làm mờ Wb2 dưới dạng sổ làm việc
Làm mờ đường dẫn tệp dưới dạng chuỗi
Tên tệp mờ dưới dạng chuỗi
Làm mờ OutlookApp làm đối tượng
Làm mờ OutlookMail dưới dạng đối tượng
On Error Resume Next
Application.ScreenUpdating = Sai
Đặt Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Đặt Wb2 = Application.ActiveWorkbook
Chọn Case Wb.FileFormat
Trường hợp xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Trường hợp xlOpenXMLWorkbookMacroEnabled:
Nếu Wb2.HasVBProject Thì
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Khác
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Cuối Nếu
Trường hợp Excel8:
xFile = ".xls"
xFormat = Excel8
Trường hợp xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Kết thúc Chọn
FilePath = Môi trường $ ("tạm thời") & "\"
FileName = Wb.Name & Format (Bây giờ, "dd-mmm-yy h-mm-ss")
Đặt OutlookApp = CreateObject ("Outlook.Application")
Đặt OutlookMail = OutlookApp.CreateItem (0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat: = xFormat
'xstr = Range ("e2") & ";" & Range ("g2")
Với OutlookMail
.Trưng bày
.To = Phạm vi ("e2")
.CC = Phạm vi ("g2")
.BCC = ""
.Subject = "Thiết bị thanh lý kỹ thuật chưa được hoàn thiện"
.HTMLBody = "Xem bảng tính đính kèm để biết các mục chưa hoàn thành trong khu vực của bạn" & " "& .HTMLBody
.Attachments.Add Wb2.FullName
'.Gửi
Kết thúc với
Wb2.C Close
Kill FilePath & FileName & xFile
Đặt OutlookMail = Không có gì
Đặt OutlookApp = 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
Có vẻ là Excel 2016 và VBA 7.1
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Oi Cristal, macro minha perde a configuração da assinatura do e-mail, com imagens e formatação gốc. Como giải quyết lô hàng?

Geraremail phụ ()

Làm mờ OLapp như Outlook.
Dim janela As Outlook.MailItem

Đặt OLapp = New Outlook.Application
Đặt janela = OLapp.CreateItem (olMailItem)

Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


Với janela
ActiveWorkbook.Save
.Trưng bày
.To = Trang tính ("Cơ sở"). Phạm vi ("A2"). Giá trị
.CC = Trang tính ("Cơ sở"). Phạm vi ("A5"). Giá trị
.Subject = "Mapa - Acrilo" & Định dạng (Ngày, "dd.mm.yy")
assinatura = .Body
.Body = "Prezados / as," & Chr (10) & Chr (10) & "Segue anexo o mapa de Acrilonitrila coirando là nhà cung cấp previstas no S&OP." & Chr (10) & Chr (10) & assinatura
.Attachments.Add Anexo01
Kết thúc với

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
Com a mudança abaixo, consegui ajustar. Porém a letra do corpo da mensagem fica em Times New Roman. Gostaria de usar Calibri, como Posso alterar o código?

Geraremail phụ ()

Làm mờ OLapp như Outlook.
Dim janela As Outlook.MailItem

Đặt OLapp = New Outlook.Application
Đặt janela = OLapp.CreateItem (olMailItem)

Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


Với janela
ActiveWorkbook.Save
.Trưng bày
.To = Trang tính ("Cơ sở"). Phạm vi ("A2"). Giá trị
.CC = Trang tính ("Cơ sở"). Phạm vi ("A5"). Giá trị
.Subject = "Mapa - Acrilo" & Định dạng (Ngày, "dd.mm.yy")
assinatura = .Body
.HTMLBody = "Prezados / as," & Chr (10) & Chr (10) & "Segue anexo o mapa de Acrilonitrila coirando là nhà cung cấp previstas no S&OP." & " "& .HTMLBody
.Attachments.Add Anexo01
Kết thúc với

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
Chào Milla,
Mã VBA sau có thể giúp bạn thay đổi phông chữ của nội dung email thành Calibri, hãy thử. Cảm ơn bạn.
Trước khi chạy mã, bạn cần nhấp vào CÔNG CỤ > Tài liệu tham khảo trong Microsoft Visual Basic cho các ứng dụng cửa sổ, và sau đó kiểm tra Thư viện đối tượng Microsoft Word trong hộp kiểm Tài liệu tham khảo - VBAProject hộp thoại như ảnh chụp màn hình được hiển thị bên dưới.
[img] Tôi: \ 工作 \ 周雪明 \ 2022 年 工作 \ 6 月份 \ 文章 评论 截图 \ 3.png [/ img]
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
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
Chào Milla,
Mã VBA sau có thể giúp bạn thay đổi phông chữ của nội dung email thành Calibri, hãy thử. Cảm ơn bạn.
Trước khi chạy mã, bạn cần nhấp vào CÔNG CỤ > Tài liệu tham khảo trong Microsoft Visual Basic cho các ứng dụng cửa sổ, và sau đó kiểm tra Thư viện đối tượng Microsoft Word trong hộp kiểm Tài liệu tham khảo - VBAProject hộp thoại như tệp đính kèm được hiển thị bên dưới.
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
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
Xin chào, tôi đang cố sửa Mã VBA của mình. Tôi muốn bao gồm một trong những chữ ký triển vọng của tôi với một logo. Điều này có khả thi không và tôi đặt mã mà tôi hiện đang sử dụng ở đâu? Bất kỳ trợ giúp sẽ là tuyệt vời.

Email phụAspdf()

Làm mờ EApp làm đối tượng
Đặt EApp = CreateObject("Outlook.Application")

Dim EItem làm đối tượng
Đặt EItem = EApp.CreateItem(0)

Dim invno As Long
Dim custname dưới dạng Chuỗi
Dim amt dưới dạng tiền tệ
Dim dt_issue Theo ngày
Thuật ngữ mờ dưới dạng Byte
Dim nextrec As Range
Làm mờ đường dẫn dưới dạng chuỗi
Dim fname As String

invno = Phạm vi ("I4")
custname = Range("A11")
amt = Phạm vi("I42")
dt_issue = Phạm vi("I6")
thuật ngữ = Phạm vi ("I7")
đường dẫn = "đường dẫn của tôi"
fname = invno & " - " & custname

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, IgnorePrintAres:=False, Filename:=path & fname

Đặt nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0)

nextrec = invno
nextrec.Offset(0, 1) = tên khách hàng
nextrec.Offset(0, 2) = amt
nextrec.Offset(0, 3) = dt_issue
nextrec.Offset(0, 4) = dt_issue + hạn
nextrec.Offset(0, 8) = Hiện tại

Sheet3.Hyperlinks.Add anchor:=nextrec.Offset(0, 6), Địa chỉ:=path & fname & ".pdf"

Với EItem

.To = Phạm vi ("A17")

.Subject = Range("A11") & " " & "Invoice No: " & Range("I4") & " " & "for California Advocates"

.body = "Xin chào " & Phạm vi("A11") & "," & vbNewLine & vbNewLine _
& "Vui lòng xem hóa đơn đính kèm cho " & Range("A11") & "." & vbNewLine & vbNewLine _
& "Nếu bạn có bất kỳ câu hỏi nào, xin đừng ngần ngại liên hệ với tôi." & vbNewLine & vbNewLine _
& "Tốt nhất," & vbNewLine _
& "Mynamehere" & vbNewLine

.Attachments.Add (đường dẫn & fname & ".pdf")

.Trưng bày

Kết thúc với
Thoát Sub



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
Chào Rose Anne,

Bạn có thể thêm logo vào chữ ký của mình theo cách thủ công trước khi áp dụng mã VBA. Mã cần đưa vào cửa sổ Mã mô-đun (nhấn tổ hợp phím Alt + F11 để mở Visual Basic Editor, bấm Chèn > Mô-đun)
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