Gửi lương qua các địa email hàng loạt từ file temp lương (3 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
N

NGOCTOAN

Thành viên hoạt động
Tham gia
1/8/06
Bài viết
104
Được thích
33
Chào các Anh Chị,

Cty em có 100 nhân viên cuối mỗi tháng cần gửi thông báo lương qua Email hàng loạt từ 1 địa chỉ email của mình ( ví dụ cotuongpc@yahoo.com). từ file Mau-Luong-Email kèm đính kèm.

Khi gửi tới địa chỉ các nhân viên thì nó sắp theo chiều dọc format như sau :

Kính gửi anh/chị Lâm Huy Luật, chuc danh Nhân viên thông tin chi tiết về lương tháng này như sau

Mức lương tháng : 6.200.000
Ăn trưa : 500.000
........
........

Thực lĩnh kỳ 2 : 3131883

Cảm ơn anh/chị,



Tuần tự theo file temp lương mẫu đính kèm
Vậy nhờ Các Anh chị giúp đỡ tìm giải pháp.

Xin cảm ơn./.

Ngoctoan
 

File đính kèm

Bạn tìm bài viết về trộn in thư sau đó trèn các trường vào theo mẫu của bạn, phần cuối của trộn in thư nó có phần electronic email thì chèn trường địa chỉ email vào thì nó sẽ tự động gửi, trước khi làm việc đó bạn phải setting gửi và nhận thư trong outlook đã
 
laobakien đã viết:
Bạn tìm bài viết về trộn in thư sau đó trèn các trường vào theo mẫu của bạn, phần cuối của trộn in thư nó có phần electronic email thì chèn trường địa chỉ email vào thì nó sẽ tự động gửi, trước khi làm việc đó bạn phải setting gửi và nhận thư trong outlook đã
Nhấp chuột vào đây để mở rộng...

Nhờ Anh/Chị chỉ rõ hơn được không, cái này mới quá em chưa hiểu lắm.Nhưng em nghe nói có thể dùng VBA viết để gửi tự động được không nhỉ,

Xin cảm ơn./.

Ngoctoan
 
Mình viết bài này nhiều lần rồi, bạn chiu khó tìm những bài viết của mình về đề tài này để tham khảo
 
NGOCTOAN đã viết:
Chào Anh quanghai1969, nhờ anh tìm hộ 1 link, em tìm mãi mà chưa thấy bài nào đúng ý trên,

Xin cảm ơn.

Ngoctoan
Nhấp chuột vào đây để mở rộng...

Làm theo format trong file của bạn, nếu thay đổi định dang thì không gởi được nhé
Chú ý dòng lệnh 'SendKeys "%{s}", True , khi nào kiểm tra thấy mọi thứ đã ok thì xóa cái dấu nháy trước chữ Sendkeys thì mail sẽ được gởi đi luôn (mình không thích điều này lắm)

PHP: 
Sub goi_mail()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim OutApp As Object, OutMail As Object
Dim FileName As String
Dim data As Range, cell As Range
Set OutApp = CreateObject("Outlook.Application")
Set data = [A1].CurrentRegion
For Each cell In Range([a2], [a2].End(4))
    data.AutoFilter 1, cell.Value
    FileName = TV(cell.Offset(, 1)) & ".xls"
    data.SpecialCells(12).Copy
    Workbooks.Add
    ActiveSheet.Paste
    With ActiveWorkbook
        .ActiveSheet.[A:Q].Columns.AutoFit
        .SaveAs ThisWorkbook.Path & "\" & FileName, FileFormat:=xlNormal
        .Close
    End With
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = cell.Offset(, 3)
            .Subject = "CHI TIET LUONG"
            .Body = "Dear " & cell.Offset(, 1) _
            & vbNewLine & vbNewLine _
            & "noi dung dong 1" _
            & vbNewLine & vbNewLine _
            & "noi dung dong 2" _
            & vbNewLine & vbNewLine _
            & "noi dung dong 3" _
            & vbNewLine & vbNewLine _
            & "Tran Trong"
            .Attachments.Add ThisWorkbook.Path & "\" & FileName
        .Display
        End With
    'SendKeys "%{s}", True
    Kill ThisWorkbook.Path & "\" & FileName
Next
data.AutoFilter
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
 

File đính kèm

quanghai1969 đã viết:
Làm theo format trong file của bạn, nếu thay đổi định dang thì không gởi được nhé
Chú ý dòng lệnh 'SendKeys "%{s}", True , khi nào kiểm tra thấy mọi thứ đã ok thì xóa cái dấu nháy trước chữ Sendkeys thì mail sẽ được gởi đi luôn (mình không thích điều này lắm)

PHP: 
Sub goi_mail()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim OutApp As Object, OutMail As Object
Dim FileName As String
Dim data As Range, cell As Range
Set OutApp = CreateObject("Outlook.Application")
Set data = [A1].CurrentRegion
For Each cell In Range([a2], [a2].End(4))
    data.AutoFilter 1, cell.Value
    FileName = TV(cell.Offset(, 1)) & ".xls"
    data.SpecialCells(12).Copy
    Workbooks.Add
    ActiveSheet.Paste
    With ActiveWorkbook
        .ActiveSheet.[A:Q].Columns.AutoFit
        .SaveAs ThisWorkbook.Path & "\" & FileName, FileFormat:=xlNormal
        .Close
    End With
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = cell.Offset(, 3)
            .Subject = "CHI TIET LUONG"
            .Body = "Dear " & cell.Offset(, 1) _
            & vbNewLine & vbNewLine _
            & "noi dung dong 1" _
            & vbNewLine & vbNewLine _
            & "noi dung dong 2" _
            & vbNewLine & vbNewLine _
            & "noi dung dong 3" _
            & vbNewLine & vbNewLine _
            & "Tran Trong"
            .Attachments.Add ThisWorkbook.Path & "\" & FileName
        .Display
        End With
    'SendKeys "%{s}", True
    Kill ThisWorkbook.Path & "\" & FileName
Next
data.AutoFilter
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Nhấp chuột vào đây để mở rộng...
Anh Quang Hải có thể cho biết gửi lương từ 1 địa chỉ email ko từ outlook có làm được ko nhỉ,

Theo file anh gửi là phải buộc dùng outlook, cảm ơn Anh

Ngoc toan
 
quanghai1969 đã viết:
Làm theo format trong file của bạn, nếu thay đổi định dang thì không gởi được nhé
Chú ý dòng lệnh 'SendKeys "%{s}", True , khi nào kiểm tra thấy mọi thứ đã ok thì xóa cái dấu nháy trước chữ Sendkeys thì mail sẽ được gởi đi luôn (mình không thích điều này lắm)

PHP: 
Sub goi_mail()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim OutApp As Object, OutMail As Object
Dim FileName As String
Dim data As Range, cell As Range
Set OutApp = CreateObject("Outlook.Application")
Set data = [A1].CurrentRegion
For Each cell In Range([a2], [a2].End(4))
    data.AutoFilter 1, cell.Value
    FileName = TV(cell.Offset(, 1)) & ".xls"
    data.SpecialCells(12).Copy
    Workbooks.Add
    ActiveSheet.Paste
    With ActiveWorkbook
        .ActiveSheet.[A:Q].Columns.AutoFit
        .SaveAs ThisWorkbook.Path & "\" & FileName, FileFormat:=xlNormal
        .Close
    End With
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = cell.Offset(, 3)
            .Subject = "CHI TIET LUONG"
            .Body = "Dear " & cell.Offset(, 1) _
            & vbNewLine & vbNewLine _
            & "noi dung dong 1" _
            & vbNewLine & vbNewLine _
            & "noi dung dong 2" _
            & vbNewLine & vbNewLine _
            & "noi dung dong 3" _
            & vbNewLine & vbNewLine _
            & "Tran Trong"
            .Attachments.Add ThisWorkbook.Path & "\" & FileName
        .Display
        End With
    'SendKeys "%{s}", True
    Kill ThisWorkbook.Path & "\" & FileName
Next
data.AutoFilter
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Nhấp chuột vào đây để mở rộng...

Anh ơi, em run code nó gửi mail ok nhưng bên code nó bị lỗi, với thông báo:
run-time error '1004;:

Method'SaveAs' of object'Workbook' faliled
Nhấp chuột vào đây để mở rộng...

Anh xem lại giúp em nhé !

Em cảm ơn !
 
quick87 đã viết:
Anh ơi, em run code nó gửi mail ok nhưng bên code nó bị lỗi, với thông báo:


Anh xem lại giúp em nhé !

Em cảm ơn !
Nhấp chuột vào đây để mở rộng...
Em xin gửi ảnh đính kèm thông báo lỗi, mong các thầy và các anh chị giúp đỡ thêm ạ.
57068904.gpe1.png


Em xin cảm ơn !
 
Lần chỉnh sửa cuối:
Trước mình xài toàn viết letter dạng word rồi liên kết với file excel rồi Mail merge gửi mail qua Outlook
Nếu những cách kia khó thì bạn thể kiểu này xem. Mình thấy nó dễ dàng hơn nhiều.
 
vuquyen10693 đã viết:
Trước mình xài toàn viết letter dạng word rồi liên kết với file excel rồi Mail merge gửi mail qua Outlook
Nếu những cách kia khó thì bạn thể kiểu này xem. Mình thấy nó dễ dàng hơn nhiều.
Nhấp chuột vào đây để mở rộng...

Do phải thao tác với con số và tính toán nhiều với những yêu cầu khá phức tạp nên bắt buộc em phải dùng excel.
Vì thế, trong trường hợp này giải pháp dùng mail merge bằng word không được khả thi cho lắm.

File cụ thể các Thầy và các anh chị xem ở bài số #8:
http://www.giaiphapexcel.com/forum/...g-loạt-từ-file-temp-lương&p=419673#post419673
Nhấp chuột vào đây để mở rộng...

Mong mọi người giúp đỡ thêm ạ.
Em xin trân trọng cảm ơn !
 
Code hữu dụng nên em có đang vận dụng cho công việc thực tế.
Tuy có gửi được mail nhưng mỗi khi gửi xong code vẫn bị lỗi như em trình bày ở bên trên nên có đôi chút khó chịu !

Mong các Thầy và các anh chị giúp đỡ thêm.
Trân trọng.
 
Lần chỉnh sửa cuối:
Xin chào,
Mình tìm được đoạn code thế này thấy chạy khá ổn. tuy nhiên mình muốn phần nội dung email cũng thay đổi theo thì chưa làm được. Mong các cao thủ xem và chỉ giáo giúp:

Sub Send_Mail()
'Working in 2000-2010
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim Sourcewb As Workbook
Dim Destwb As Workbook
Dim TempFilePath As String
Dim TempFileName As String
Dim OutApp As Object
Dim OutMail As Object
Dim Signature As String
Dim cont As String
Dim ct1 As String, ct2 As String, ct3 As String
Dim i As Integer, n As Integer

ct1 = Trim(Sheets("Set_up").Range("F12").Value)
ct2 = Trim(Sheets("Set_up").Range("F13").Value)
ct3 = Trim(Sheets("Set_up").Range("F14").Value)

cont = ct1 & ct2 & ct3

Sheets("Set_up").Select
Range("I8").Select
Range(Selection, Selection.End(xlDown)).Select
n = Selection.Count

Sheets("Set_up").Select
Range("Group").Select

For i = 1 To n
Group = Trim(Sheets("Set_up").Cells(i + 7, 9).Value)
Sheets("Set_up").Range("Group").Value = Group

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.Display
End With
Signature = OutMail.htmlBody

On Error Resume Next

With OutMail
.To = Trim(Sheets("Set_up").Range("Recipient").Value)
.cc = Trim(Sheets("Set_up").Range("Cc").Value)
.Subject = Trim(Sheets("Set_up").Range("Subject").Value)
.htmlBody = cont & Signature
.Attachments.Add Trim(Sheets("Set_up").Range("PathFile").Value)
'.Display
.Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing


With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Next i
MsgBox ("Send Mail Completed!")
End Sub
 

File đính kèm

Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

Gaiams
Nhờ Anh Chị viết giúp hàm lọc dữ liệu theo yêu cầu cho trước ạ
Trả lời
5
Đọc
64
SA_DQ
SA_DQ
H
  • Question Question
Giúp File Đọc Số ra Âm thanh dùng trong Khu Cách Ly COVID-19 (2 người xem)
    • Thích
2 3 4
Trả lời
78
Đọc
9K
only22222
O
C
Tính tổng một khách hàng có nhiều mã hàng nhỏ
2
Trả lời
22
Đọc
451
cicerone2
C
O
XIN ANH CHỊ GIÚP ĐỠ HƯỚNG DẪN CHUYỂN VĂN BẢN THÀNH GIỌNG NÓI TRONG EXCEL Ạ. (3 người xem)
Trả lời
5
Đọc
119
only22222
O
L
  • Question Question
Giải thích các sự kiện Private Sub Workbook_SheetActivate và Private Sub Workbook_SheetDeactivate
Trả lời
3
Đọc
59
LienDong
L
L
  • Question Question
Code tự động đặt pass protect sheet "DIEM", khi chuyển qua sheet khác (2 người xem)
Trả lời
2
Đọc
67
LienDong
L
L
nhờ a/c chỉ giúp e dùng hàm gì để tính doanh thu từng mã hàng trong bảng tính một loạt mã hàng ạ
Trả lời
4
Đọc
63
Duy Tùng 9x
Duy Tùng 9x
S
Chức năng refresh trong Pivot khi thêm bớt dòng
Trả lời
13
Đọc
183
ptm0412
ptm0412
K
Xử lý (tắt) đường link địa chỉ ô trong excel khi đăng nhập tài khoản MS.
Trả lời
0
Đọc
30
khoak47
K
Nguyễn Duy Tuân
Dùng AI trên Excel bằng hàm BS_AI, BS_AI_CHAT của Add-in A-Tools v10 (1 người xem)
    • Yêu thích
Trả lời
0
Đọc
66
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Anhhe
Em xin nhờ các cao nhân chỉ giáo em cách tính giờ làm việc của nhân viên với ạ Plz
Trả lời
2
Đọc
69
HieuCD
H
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (1 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
16 17 18
Trả lời
351
Đọc
32K
Tuanba1992
Tuanba1992
M
Mọi người giúp e với lỗi này là gì ạ (2 người xem)
Trả lời
1
Đọc
58
SA_DQ
SA_DQ
E
Không cho người khác chỉnh sửa cố định dòng và cột trong google sheet
Trả lời
0
Đọc
64
Em khong biet
E
queluatb
  • Question Question
Lấy hóa đơn đầu vào cho hóa đơn đầu ra
Trả lời
5
Đọc
348
queluatb
queluatb
Vu_Thi_Xuan
Lỗi tham chiếu khi dùng Vlookup trong VBA
Trả lời
9
Đọc
406
Vu_Thi_Xuan
Vu_Thi_Xuan
6
  • Question Question
vba tự động lấy dữ liệu từ etabs (1 người xem)
Trả lời
2
Đọc
320
VetMini
V
1
Vướng mắc về hàm lấy tên đăng nhập máy tính ạ
2
Trả lời
20
Đọc
747
198zxc
1
D
Nhờ anh chị xử lý giúp lỗi thực hiện lọc dữ liệu (1 người xem)
Trả lời
2
Đọc
521
Hoàng Tuấn 868
H
Nguyễn Duy Tuân
Phiên bản mới Add-in A-Tools v10 (2024) (1 người xem)
    • Thích
2 3
Trả lời
50
Đọc
5K
Nguyễn Duy Tuân
Nguyễn Duy Tuân
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
[GPE] HỘI THẢO POWER QUERY – CÔNG CỤ QUẢN LÝ DỮ LIỆU HCM
Back
Top Bottom