Xuất file từ bảng Excel (1 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)
D

dragon18081988

Thành viên mới
Tham gia
4/6/12
Bài viết
9
Được thích
0
Chào mọi người!
Em có 1 bảng Excel. Ví dụ như thế này:
excel.jpg

Em muốn giữ nguyên dòng đầu tiên, còn xuất các dòng còn lại, mỗi dòng ra 1 file Excel riêng trong 1 thư mục mình chọn sẵn. Ai biết làm thì chỉ bảo dùm em.
Em cảm ơn!
 
Lần chỉnh sửa cuối:
Sắp xếp theo thời gian sắp xếp theo bầu chọn
Hình như bạn muốn tách file và gởi mail cho từng người. Nếu đúng thì sử dụng file này. Lưu ý là giải nén và lưu file vào máy tính trước khi chạy thử. File này sau khi gởi mail sẽ xóa hết những file mới tạo. Cột tên phải nằm ở cột B, và cột địa chỉ mail phải nằm ở cột cuối. Những cột giữa có thể thêm hoặc giảm. Nếu muốn thay đổi gì thì bàn tiếp.

Thân
 

File đính kèm

Upvote 0
Em cảm ơn ạ! Em đang text thử, nếu ko hiểu em xin phép làm phiền tiếp ạ.
 
Upvote 0
quanghai1969 đã viết:
Hình như bạn muốn tách file và gởi mail cho từng người. Nếu đúng thì sử dụng file này. Lưu ý là giải nén và lưu file vào máy tính trước khi chạy thử. File này sau khi gởi mail sẽ xóa hết những file mới tạo. Cột tên phải nằm ở cột B, và cột địa chỉ mail phải nằm ở cột cuối. Những cột giữa có thể thêm hoặc giảm. Nếu muốn thay đổi gì thì bàn tiếp.

Thân
Nhấp chuột vào đây để mở rộng...
Cảm ơn anh ạ!
File này đúng như em đang muốn tìm. Cho em hỏi thêm 1 chút nữa là, khi e có 1 bảng khác, với họ tên cũng nằm ở cột B, côt cuối cùng vẫn là địa chỉ mail. Em thay vào file của anh thì lại ko đc. E dùng cách khác là dùng code của file a gửi rồi copy sang bảng khác, cũng ko đc. Bảng của em nó như thế này ạ: excel.jpg
Mong a chỉ bảo thêm. Em cảm ơn!
 
Upvote 0
Gởi file lên đi, gởi cái hình không hình dung được đâu.
 
Upvote 0
quanghai1969 đã viết:
Gởi file lên đi, gởi cái hình không hình dung được đâu.
Nhấp chuột vào đây để mở rộng...
Dạ đây ạ, ví dụ em có cái file như thế này ạ, và em cũng muốn làm giống file anh gửi thì e phải làm thế nào ạ, số người lên tới 50 - 100 người thì phải làm sao ạ
 

File đính kèm

Upvote 0
File của bạn không có cột đia chỉ email
 
Upvote 0
Cấu trúc file khác nhau đâu có dùng chung được, nếu cần thì gởi file thật lên mọi người sẽ xem cho bạn
 
Upvote 0
Cái này của anh Hải rất hay, em cũng gặp một vấn đề tương tự. Nhưng không phải tự động gửi E.Mail cho nhiều người. Mà chỉ gửi đến một địa chỉ cố định trong mạng nội bộ công ty. Cái này thì đòi hỏi phải config địa chỉ mạng vào. Anh có thể giúp em được không? Trân trọng cảm ơn,
 
Upvote 0
Muốn thế nào thì phải có file, không có file thì biết config thế nào???
 
Upvote 0
file bạn gởi có 2 sheet, vậy gởi sheet nào? và gởi những hàng nào? cột địa chỉ email ở đâu?
 
Upvote 0
quanghai1969 đã viết:
file bạn gởi có 2 sheet, vậy gởi sheet nào? và gởi những hàng nào? cột địa chỉ email ở đâu?
Nhấp chuột vào đây để mở rộng...
Dạ e muốn gửi sheet1, cột địa chỉ mail thì ở cột cuối cùng,gửi tất cả hàng và cột chứa tên người giống như bảng excel mà anh post lên đó ạ, mỗi người nhận hàng chứa tên mình và không nhận hàng chứa tên người khác
 
Upvote 0
Làm theo format của file bạn, nếu sửa format lại thì coi chừng không chạy đấy
 

File đính kèm

Upvote 0
quanghai1969 đã viết:
Làm theo format của file bạn, nếu sửa format lại thì coi chừng không chạy đấy
Nhấp chuột vào đây để mở rộng...
cảm ơn anh rất nhiều, format này của em sẽ không đổi, nhưng nếu em thếm số dòng thì vẫn dùng đc đúng ko ạ. Vì số lượng người em cần gửi thư lên tới 50 người tức là phải có 50 dòng như thế này nữa. Nếu em thêm vào cái file a gửi thì vẫn dùng đc chứ ạ
 
Lần chỉnh sửa cuối:
Upvote 0
Thì bạn cứ thêm dòng thông tin vào xem thế nào, nhưng mình thấy không ổn vì nếu có 2 người bị trùng họ tên thì sẽ xảy ra vấn đề. Nếu cột B mà sử dụng mã nhân viên và cột C là tên nhân viên thì mới an toàn.
 
Upvote 0
Anh quanghai1969 vui lòng giúp em với. Em có file đính kèm (danh sách khoảng 500 người). Em muốn gửi thư giới thiệu (cùng một nội dung, cùng một đính kèm) tới tất cả danh sách (từng người). Nhưng em muốn khác nhau ở chỗ:
Dear + Tên của đúng chủ nhân email (cột này em bôi vàng),
Anh vui lòng giúp em với nha.
 

File đính kèm

Upvote 0
Em nên up file hoàn chỉnh tí, vì cột tên người nhận thiếu dữ liệu thì so với những cột khác.

Em nên thêm 1 cột Mr, Ms hay là Mrs .... Gởi file chuẩn sẽ không mất thời gian sửa lại code
 
Upvote 0
quanghai1969 đã viết:
Em nên up file hoàn chỉnh tí, vì cột tên người nhận thiếu dữ liệu thì so với những cột khác.

Em nên thêm 1 cột Mr, Ms hay là Mrs .... Gởi file chuẩn sẽ không mất thời gian sửa lại code
Nhấp chuột vào đây để mở rộng...
Em gửi lại file, anh xem giúp em nha. Em cũng thấy điều này nhưng em không biết là sẽ ảnh hưởng đến code và em suy nghĩ em sẽ thêm danh hiệu sau.
Em cám ơn anh đã xem giúp em.
Em tải lại file em đã thêm danh hiệu dưới đây.
 

File đính kèm

Upvote 0
File muốn gởi kèm tên gì? File lưu ở đâu?
 
Upvote 0
Em xem file coi đúng chưa, chỉ ngại cái chỗ đường dẫn và tên file của em thôi
Mã: 
Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "THONG TIN CHU DE CAN GOI" 'nhap noi dung chu de vao giua 2 dau nhay
        .Body = "Dear " & cell & vbNewLine & vbNewLine & "dong 1" & vbNewLine & vbNewLine _
        & "dong 2" & vbNewLine & vbNewLine _
        & "dong 3" & vbNewLine & vbNewLine _
        & "dong 4" & vbNewLine & vbNewLine _
        & "dong 5" & vbNewLine & vbNewLine _
        & "Tran Trong"
        .Attachments.Add "D:\NGUYEN VU\TAI LIEU TIEP KHACH\NGUYEN VU\INTRODUCTION.pptx"
        .Display 'neu muon goi luon thi thay chu Display la Send nhe
    End With
Next
Application.ScreenUpdating = 1
End Sub
 

File đính kèm

Upvote 0
quanghai1969 đã viết:
Em xem file coi đúng chưa, chỉ ngại cái chỗ đường dẫn và tên file của em thôi
Mã: 
Sub Goimail()
....
End Sub
Nhấp chuột vào đây để mở rộng...
Em sửa đoạn code lại như sau:
Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = cell.Offset(, 3)
.Subject = "VICTOR WOOD INTRODUCTION"
.Body = "Dear " & cell & vbNewLine & vbNewLine & "dong 1" & vbNewLine & vbNewLine _
& "dong 2" & vbNewLine & vbNewLine _
& "dong 3" & vbNewLine & vbNewLine _
& "dong 4" & vbNewLine & vbNewLine _
& "dong 5" & vbNewLine & vbNewLine _
& "Tran Trong"
.Attachments.Add "D:\NGUYEN VU\TAI LIEU TIEP KHACH\NGUYEN VU\INTRODUCTION.pptx"
.Display
End With
Next
Application.ScreenUpdating = 1
End Sub

Private Sub CommandButton1_Click()

End Sub
Sau khi sửa code, em thoát excel và em vô lại file này, em bấm gửi mail.

Nhưng em vẫn chưa gửi mail được, anh xem giúp em nha.
 
Upvote 0
Cài file đính kèm có chạy được không? Nếu không chạy được mới sửa chứ. Không hiểu em đã làm gì mà giờ ra được code này.
 
Upvote 0
quanghai1969 đã viết:
Cài file đính kèm có chạy được không? Nếu không chạy được mới sửa chứ. Không hiểu em đã làm gì mà giờ ra được code này.
Nhấp chuột vào đây để mở rộng...
Cám ơn anh đã bỏ thời gian giúp đỡ em. Cái file đính kèm không chạy được đâu anh. Chỗ nào anh ghi hướng dẫn, em xoá đi và còn lại giữ y nguyên đó anh quanghai1969. Em muốn gửi tới tất cả mọi người với nội dung sau anh nha.

"Dear Tên người theo file,

I am Nhung from Victor Wood company. Nice to contact with you.

We welcome you as a new customer to our commercial business. We are quite sure that you will be extremely satisfied with our line of products and the service we provide to all our customers. Hope that we will have a good business relationship in the nearest future.

By the way, in order to help you can know more about our factory, we have enclosed the Presentation file for your information and reference. If you have the time, we always welcome you to visit our factory at the address: “Chơn Thành Industrial Zone, Thành Tâm Ward, Chơn Thành District, Bình Phước Province, Vietnam”.

We are looking forward to your reply soon.
If you have any queries, pls do not hesitate to contact us.

Best regards,
Nhung (Ms.)
-------------------------------------------------
VICTOR WOOD
243 - 245 Ung Van Khiem Street, Ward 25, Binh Thanh District, HCMC, VN
HP: +84 90 666 9814, Tel: +84 8 38999495 - 410, Fax: +84 8 38035527
Email: nhungpham@victorwoodvn.com
Website: http://www.nguyenvufurniture.com/ or http://www.victorwoodvn.com/
Skype: cam.nhung2011
-------------------------------------------------
"
Anh xem giúp em nha.
 
Lần chỉnh sửa cuối:
Upvote 0
Mình chỉ làm mẫu cho bạn vài dòng, coi theo đó mà sáng tạo thêm cho phù hợp thực tế. Chú ý cách xuống dòng phải theo đúng nguyên tắc nghen, nếu không sẽ bị lỗi
PHP: 
Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "VICTOR WOOD INTRODUCTION"
        .Body = "Dear " & cell & vbNewLine & vbNewLine & "I am Nhung from Victor Wood company. " _
        & "Nice to contact you" & vbNewLine _
        & "We welcome you as a new customer to our commercial business. " _
        & vbNewLine & vbNewLine _
        & "Tran Trong"
        '.Attachments.Add "D:\NGUYEN VU\TAI LIEU TIEP KHACH\NGUYEN VU\INTRODUCTION.pptx"
        .Display
    End With
Next
Application.ScreenUpdating = 1
End Sub
 
Upvote 0
quanghai1969 đã viết:
Mình chỉ làm mẫu cho bạn vài dòng, coi theo đó mà sáng tạo thêm cho phù hợp thực tế. Chú ý cách xuống dòng phải theo đúng nguyên tắc nghen, nếu không sẽ bị lỗi
PHP: 
Sub Goimail()
Dim OutApp As Object
...
Application.ScreenUpdating = 1
End Sub
Nhấp chuột vào đây để mở rộng...

Anh vui lòng giúp đỡ em đến cuối được không anh? Vì em không biết một chút gì về VAB.
 
Upvote 0
Đã nhập hết nội dung vào trong code, nhưng phải kiểm tra lai kỹ nha. Bên trong thấy có dòng enclosed the presentation file nhưng lai không có kèm file theo thì kỳ quá.

PHP: 
Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "VICTOR WOOD INTRODUCTION"
        .Body = "Dear " & cell & vbNewLine & vbNewLine _
        & "I am Nhung from Victor Wood company. It's my pleasure to contact you." & vbNewLine & vbNewLine _
        & "We'd like to welcome you as a new customer to our commercial business. " & vbNewLine & vbNewLine _
        & "We are quite sure that you will be extremely satisfied with our line of products " & vbNewLine & vbNewLine _
        & "and the service we provide to all our customers." & vbNewLine & vbNewLine _
        & "Hope that we will have a good business relationship in the nearest future. " & vbNewLine & vbNewLine _
        & "By the way, in order to help you have more information about our factory, " & vbNewLine & vbNewLine _
        & "we have enclosed the Presentation file for your information and reference. " & vbNewLine & vbNewLine _
        & "If you have the time, we always welcome you to visit our factory at the address: " & vbNewLine & vbNewLine _
        & "Chon Thành Industrial Zone, Thành Tâm Ward, Chon Thành District, Bình Phuoc Province, Vietnam." & vbNewLine & vbNewLine _
        & "We are looking forward to your reply soon. " & vbNewLine & vbNewLine _
        & "If you have any queries, pls do not hesitate to contact us." & vbNewLine & vbNewLine & vbNewLine _
        & "Best Regards" & vbNewLine _
        & "Nhung (Ms)"
        .Display 'neu muon goi luon thi thay chu Display la Send nhe
    End With
Next
Application.ScreenUpdating = 1
End Sub
 
Upvote 0
quanghai1969 đã viết:
Đã nhập hết nội dung vào trong code, nhưng phải kiểm tra lai kỹ nha. Bên trong thấy có dòng enclosed the presentation file nhưng lai không có kèm file theo thì kỳ quá.

PHP: 
Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "VICTOR WOOD INTRODUCTION"
        .Body = "Dear " & cell & vbNewLine & vbNewLine _
        & "I am Nhung from Victor Wood company. It's my pleasure to contact you." & vbNewLine & vbNewLine _
        & "We'd like to welcome you as a new customer to our commercial business. " & vbNewLine & vbNewLine _
        & "We are quite sure that you will be extremely satisfied with our line of products " & vbNewLine & vbNewLine _
        & "and the service we provide to all our customers." & vbNewLine & vbNewLine _
        & "Hope that we will have a good business relationship in the nearest future. " & vbNewLine & vbNewLine _
        & "By the way, in order to help you have more information about our factory, " & vbNewLine & vbNewLine _
        & "we have enclosed the Presentation file for your information and reference. " & vbNewLine & vbNewLine _
        & "If you have the time, we always welcome you to visit our factory at the address: " & vbNewLine & vbNewLine _
        & "Chon Thành Industrial Zone, Thành Tâm Ward, Chon Thành District, Bình Phuoc Province, Vietnam." & vbNewLine & vbNewLine _
        & "We are looking forward to your reply soon. " & vbNewLine & vbNewLine _
        & "If you have any queries, pls do not hesitate to contact us." & vbNewLine & vbNewLine & vbNewLine _
        & "Best Regards" & vbNewLine _
        & "Nhung (Ms)"
        .Display 'neu muon goi luon thi thay chu Display la Send nhe
    End With
Next
Application.ScreenUpdating = 1
End Sub
Nhấp chuột vào đây để mở rộng...
Em cám ơn anh nhiều. Em muốn hỏi em sẽ xoá dòng "neu muon goi luon thi thay chu Display la Send nhe" đi phải không anh quanghai1969?
 
Upvote 0
buocduongcung đã viết:
Do máy em bị hỏng nên gửi file chậm trễ.
View attachment 84481
Nhấp chuột vào đây để mở rộng...

Mình có xem qua file của bạn và biết rằng không làm giúp được vì mình không biết sử dụng cái địa chỉ IP của bạn kèm trong file. Còn việc gởi cố định đến 1 địa chỉ và nội dung đã được ấn định trước thì cứ xem lại những bài viết liên quan thì mình nghĩ bạn sẽ làm được mà
 
Upvote 0
Cảm ơn thầy đã đã đề cao em. Nhưng thực chất em nghĩ mình chưa làm được việc đó, bởi vì chưa có một code nào tương tự như thế cả. Thầy có thể bớt chút thời gian nghiên cứu cái khung sườn, trên cơ sở đó em mới thêm mắm muối vào được.
 
Upvote 0
Xem lại những bài đã viết trong đề tài này đi, khung sườn nằm trong đó hết rồi
 
Upvote 0
Dear anh Hải!
- Em thấy bài viết của anh rất hay, em muốn hỏi thêm anh. Với các file nằm trong cùng folder, em muốn gửi tương ứng 1 file trong folder với 1 người trong file excel với điều kiện tên file tương ứng với tên cột mã đơn vị. Việc này có thực hiện được không ạ? Em cám ơn anh!
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Bạn gởi file của bạn lên, kèm theo những file đính kèm mà bạn muốn đính kèm. Nói chung chung thì không biết cách nào viết code cả đâu
 
Upvote 0
man231186 đã viết:
Dear anh Hải!
- Em thấy bài viết của anh rất hay, em muốn hỏi thêm anh. Với các file nằm trong cùng folder, em muốn gửi tương ứng 1 file trong folder với 1 người trong file excel với điều kiện tên file tương ứng với tên cột mã đơn vị. Việc này có thực hiện được không ạ? Em cám ơn anh!
Nhấp chuột vào đây để mở rộng...

Em gửi anh file có chứa 1 folder (bao gồm các cel). Em muốn gửi tương ứng file baocao_HNI cho ông nguyễn văn A (mã đơn vị: HNI) có đuợc không ạ? Nhờ anh giúp em nhé!
 

File đính kèm

Upvote 0
tải file về và giải nén vào thư mục có những file muốn gởi
 

File đính kèm

Upvote 0
Cám ơn anh!
- Cho em hỏi thêm, em muốn gửi kèm thêm 1 file định dạng .pdf cũng tên như vậy (baocao_HNI.pdf) có được không ạ?
 
Upvote 0
Thử thay dòng này
FileName = "baocao_" & cell & ".xls"
bằng dòng này
FileName = "baocao_" & cell & ".pdf"

Nếu gởi đựơc có nghĩa là được, nếu không đựơc thì mình có kết quả là không được nhé
 
Upvote 0
quanghai1969 đã viết:
Thử thay dòng này
FileName = "baocao_" & cell & ".xls"
bằng dòng này
FileName = "baocao_" & cell & ".pdf"

Nếu gởi đựơc có nghĩa là được, nếu không đựơc thì mình có kết quả là không được nhé
Nhấp chuột vào đây để mở rộng...
Anh ơi, gửi được anh ạ, nhưng khi em send thay cho display thì outlook hiên lên cảnh báo có gửi hay không? Nêu gửi nhiêu file thì phải ấn liên tục, có cách nào xử lý không anh nhỉ?
 
Upvote 0
Đây là chức năng bảo vệ của OutLook nên mình không biết tắt như thế nào. Mình vẫn thích sử dụng .Display để kiểm tra trước khi bấm nút Send. Dù sao cũng không mất bao nhiêu thời gian.
 
Upvote 0
quanghai1969 đã viết:
Đây là chức năng bảo vệ của OutLook nên mình không biết tắt như thế nào. Mình vẫn thích sử dụng .Display để kiểm tra trước khi bấm nút Send. Dù sao cũng không mất bao nhiêu thời gian.
Nhấp chuột vào đây để mở rộng...

Em định sửa theo cách này, không biết có được không nhưng em test thử thì thấy OK. Anh xem nhé!
 

File đính kèm

Upvote 0
quanghai1969 đã viết:
Hình như bạn muốn tách file và gởi mail cho từng người. Nếu đúng thì sử dụng file này. Lưu ý là giải nén và lưu file vào máy tính trước khi chạy thử. File này sau khi gởi mail sẽ xóa hết những file mới tạo. Cột tên phải nằm ở cột B, và cột địa chỉ mail phải nằm ở cột cuối. Những cột giữa có thể thêm hoặc giảm. Nếu muốn thay đổi gì thì bàn tiếp.

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

mình có 1file dữ liệu tự update thông tin theo giờ thì khi sử dụng theo cách bạn hướng dẫn thì làm sao mình loại trừ được các trường hợp đã gửi.
 
Upvote 0
Picture1.jpg
quanghai1969 đã viết:
Làm theo format của file bạn, nếu sửa format lại thì coi chừng không chạy đấy
Nhấp chuột vào đây để mở rộng...
Tôi chưa từng sử dụng OutLook, thấy trên diễn đàn mình có đề tài gởi mail tự động từ 1 danh sách(của anh Quang Hải ), tôi có mò từ chiều giờ xem như thế nào, cài đặt outlook và đọc code, nhưng khi chạy không biết outlook như thế nào mà báo lỗi ở chỗ này
activex component can't create object.
sau đó hiện lên màu vàng ở đây
Set OutApp = CreateObject("Outlook.Application")
không biết tôi cài đặt outlook có sai chỗ nào không mà nó báo lỗi, xin được các thành viên diễn đàn giải thích dùm, xin cảm ơn
 
Lần chỉnh sửa cuối:
Upvote 0
mình chạy rất nhiều bài tập dạng như thế này, toàn là bị lỗi như trên không? không biết khi cài đặt Outlook còn thiếu ACTIVE nào không? xin được các thành viên giúp đỡ, xin cảm ơn
 
Upvote 0
quanghai1969 đã viết:
Có phải bạn đang cài 2 bộ Office?
Nhấp chuột vào đây để mở rộng...

đúng rồi anh, nó báo lỗi 429 mà lên mạng tìm nó chỉ làm như vậy
Go to the VBA editor, Alt -F11
2) Tools>References in the Menu bar
3) Place a Checkmark before Microsoft Outlook 9 Object Library
nhưng trong máy chỉ cóMicrosoft Outlook 12 Object Library thôi
 
Upvote 0
phihndhsp đã viết:
đúng rồi anh, nó báo lỗi 429 mà lên mạng tìm nó chỉ làm như vậy
Go to the VBA editor, Alt -F11
2) Tools>References in the Menu bar
3) Place a Checkmark before Microsoft Outlook 9 Object Library
nhưng trong máy chỉ cóMicrosoft Outlook 12 Object Library thôi
Nhấp chuột vào đây để mở rộng...
Bạn chạy thử trên máy nào chỉ có 1 bộ office thôi xem sao. Lúc trước mình cũng bị y chang, xóa cái 2003 thì chạy êm ru
 
Upvote 0
Đã chạy được gởi mail hàng loạt, nhưng lỡ phát sinh ra trường hợp này thì sao
Yêu cầu
Nhấn Nút Send sẽ gởi tất cả các mail đi hàng loạt
với nội dung giống nhau
nhưng phần bên dưới thông tin của từng người lại khác nhau(dựa vào thông tin có sẳn trong từng dòng excel để đưa ra cho phù hợp với từng người nhận)
VBA có làm được như vậy không? xin được ý kiến của các thành viên trong diễn đàn, xin chân thành cảm ơn
tôi có gời file đính kèm
 

File đính kèm

Upvote 0
phihndhsp đã viết:
Đã chạy được gởi mail hàng loạt, nhưng lỡ phát sinh ra trường hợp này thì sao
Yêu cầu
Nhấn Nút Send sẽ gởi tất cả các mail đi hàng loạt
với nội dung giống nhau
nhưng phần bên dưới thông tin của từng người lại khác nhau(dựa vào thông tin có sẳn trong từng dòng excel để đưa ra cho phù hợp với từng người nhận)
VBA có làm được như vậy không? xin được ý kiến của các thành viên trong diễn đàn, xin chân thành cảm ơn
tôi có gời file đính kèm
Nhấp chuột vào đây để mở rộng...
Theo tôi VBA làm được chuyện này
Bạn tham khảo Topic này:http://www.giaiphapexcel.com/forum/showthread.php?48211-G%E1%BB%ADi-email-t%C3%ADnh-l%C6%B0%C6%A1ng-cho-t%E1%BB%ABng-ng%C6%B0%E1%BB%9Di
Tôi thấy Code của anh HLMT đưa ra có thể thay đổi theo yêu cầu của bạn
1: Người nhận
2: Các thông tin mà bạn muốn thay đổi (nằm trong nội dung mail)
3: Nội dung mail chỉ cần link vào Cell cố định là ok
 
Upvote 0
nhờ các thành viên trên diễn đàn chỉ giúp dùm cách sửa lỗi này khi gởi mail từ EXCEL + VBA trong Outlook
Picture1.jpg
xin chân thành cảm ơn
 
Upvote 0
Không biết outlook bị lỗi chỗ nào. máy người ta thì thử chạy được, về máy mình hết báo lỗi 429 bây giờ lại báo lỗi này. xin được sự giúp đỡ của các thành viên, xin cảm ơn
sau khi bấn nút chạy thì bị lỗi như vậy
Picture1.jpg
 
Upvote 0
sau 2 tuần công việc đã xong, máy tôi đã cài outlook, tôi có sử dụng chức năng mail merger (sent Email messager ) trong WORD. thấy gởi mail hàng loạt rất hay và tôi đã test thì kết quả rất ok, thậm chí còn tốt hơn khi viết VBA, không cần suy nghĩ lập trình mà vẫn cho ra kết quả mong muốn.
 
Upvote 0
quanghai1969 đã viết:
Em xem file coi đúng chưa, chỉ ngại cái chỗ đường dẫn và tên file của em thôi
Mã: 
Sub Goimail()
Dim OutApp As Object
Dim OutMail As Object
Dim FileName As String, cell As Range
Application.ScreenUpdating = 0
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
For Each cell In Range([H5], [H5].End(4))
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = cell.Offset(, 3)
        .Subject = "THONG TIN CHU DE CAN GOI" 'nhap noi dung chu de vao giua 2 dau nhay
        .Body = "Dear " & cell & vbNewLine & vbNewLine & "dong 1" & vbNewLine & vbNewLine _
        & "dong 2" & vbNewLine & vbNewLine _
        & "dong 3" & vbNewLine & vbNewLine _
        & "dong 4" & vbNewLine & vbNewLine _
        & "dong 5" & vbNewLine & vbNewLine _
        & "Tran Trong"
        .Attachments.Add "D:\NGUYEN VU\TAI LIEU TIEP KHACH\NGUYEN VU\INTRODUCTION.pptx"
        .Display 'neu muon goi luon thi thay chu Display la Send nhe
    End With
Next
Application.ScreenUpdating = 1
End Sub
Nhấp chuột vào đây để mở rộng...


Anh ơi cho em hỏi. Em chưa hiểu 2 câu lệnh này
For Each cell In Range([H5], [H5].End(4)) // Em chưa hiểu khúc End(4) là như thế nào ?
To = cell.Offset(, 3) // Tại sao sau dấu , có khoảng trắng rồi đến số 3. Số 3 ở đây có ý nghĩa gì vậy anh
Em lập trình bên .NET nhưng e đang gặp tình huống tương tự. Mong anh giải thích để e rõ hơn. Em cám ơn ạ !
 
Upvote 0
tancasmen đã viết:
Anh ơi cho em hỏi. Em chưa hiểu 2 câu lệnh này
For Each cell In Range([H5], [H5].End(4)) // Em chưa hiểu khúc End(4) là như thế nào ?
To = cell.Offset(, 3) // Tại sao sau dấu , có khoảng trắng rồi đến số 3. Số 3 ở đây có ý nghĩa gì vậy anh
Em lập trình bên .NET nhưng e đang gặp tình huống tương tự. Mong anh giải thích để e rõ hơn. Em cám ơn ạ !
Nhấp chuột vào đây để mở rộng...
End(4)=End(XlDown)
Offset(,3) tức là qua phải thêm 3 ô
Ví dụ [A1].Offset(,3) tức là chọn [D1]
 
Upvote 0
Nếu muốn format phần .body của mail như bình thường lúc soạn mail.
Ví dụ như bôi đậm, chọn màu chữ, insert hyperlink giống như HTML thì làm thế nào?
 
Upvote 0
Chào mọi người, mình mới tìm hiểu về VBA và mình có một vấn đề là mình muốn xuất 1 file excel từ 1 file excel gốc, không biết hỏi ở đâu, thấy tiêu đề của Topic giống giống cho mình hỏi ở đây luôn nhé :)
Như trên đã nói mình muốn xuất file excel từ 1 file gốc sang 1 file form với nộ dung một phần trong file gốc, mong được sự chỉ giúp của các bạn
 

File đính kèm

Upvote 0
quanghai1969 đã viết:
Hình như bạn muốn tách file và gởi mail cho từng người. Nếu đúng thì sử dụng file này. Lưu ý là giải nén và lưu file vào máy tính trước khi chạy thử. File này sau khi gởi mail sẽ xóa hết những file mới tạo. Cột tên phải nằm ở cột B, và cột địa chỉ mail phải nằm ở cột cuối. Những cột giữa có thể thêm hoặc giảm. Nếu muốn thay đổi gì thì bàn tiếp.

Thân
Nhấp chuột vào đây để mở rộng...
Nếu em có file riêng đã tạo ra sẵn và muốn gửi theo list danh sách mail, thì em phải chỉnh sửa như thế nào anh chị?
 
Upvote 0
quanghai1969 đã viết:
Hình như bạn muốn tách file và gởi mail cho từng người. Nếu đúng thì sử dụng file này. Lưu ý là giải nén và lưu file vào máy tính trước khi chạy thử. File này sau khi gởi mail sẽ xóa hết những file mới tạo. Cột tên phải nằm ở cột B, và cột địa chỉ mail phải nằm ở cột cuối. Những cột giữa có thể thêm hoặc giảm. Nếu muốn thay đổi gì thì bàn tiếp.

Thân
Nhấp chuột vào đây để mở rộng...
a cho e hỏi chút.file của a e đã thử và hoạt động tốt.nhưng có một điều e thắc mắc đó là sau khi ấn nút GOI MAIL thì outlook được gọi lên, mỗi mail đã được điền sẵn nhưng nó ko ấn nút send cho mình. Mình cần phải ấn send cho từng mail được hiện ra.
Cụ thể ở trong file a làm mẫu có 4 địa chỉ hòm thư,thì sau khi ấn nút GOI MAIL nó hiện 4 cái mail.mình phải ấn 4 lần ạ.
E muốn hỏi a có cách nào để nó ấn giùm mình luôn nút send sau khi ấn nút GOI MAIL ko ạ.e cảm ơn !
 
Upvote 0
các anh chị cho em hỏi chút ạ, hàng tháng bên em phải gửi bảng lương cho khoảng 70 người khác nhau, mỗi người 1 sheet riêng trên excel, có cách nào để em gửi một mỗi người 1 mail cùng nội dung nhưng attach file khác nhau, gửi 1 lượt cho khỏi phải làm thủ công không ạ ? em gửi 1 file ví dụ lên ạ, các anh chị có kinh nghiệm chỉ giúp em với ạ. em cám ơn nhiều nhiều ạ
 

File đính kèm

Upvote 0
quanghai1969 đã viết:
Thử thay dòng này
FileName = "baocao_" & cell & ".xls"
bằng dòng này
FileName = "baocao_" & cell & ".pdf"

Nếu gởi đựơc có nghĩa là được, nếu không đựơc thì mình có kết quả là không được nhé
Nhấp chuột vào đây để mở rộng...
Anh ơi. Trường hợp mình ko dùng outlook mà dùng gmail thì được ko ạ anh
 
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

Q
Không chỉnh sửa, copy được hình ảnh trong file excel. (4 người xem)
Trả lời
6
Đọc
4K
thaivanthao
T
L
Nhờ giúp file word (3 người xem)
Trả lời
1
Đọc
80
minhminh27
minhminh27
GPE-Trợ Lý
[GPE] TASKSHOW 14: TỪ BẢNG TÍNH ĐẾN BÁO CÁO ĐỘNG - BẮT ĐẦU VỚI LOOKER STUDIO (4 người xem)
    • Thích
Trả lời
1
Đọc
11K
GPE-Trợ Lý
GPE-Trợ Lý
dungluyen2119
  • Question Question
Code VBA để tính tổng theo chiều ngang mà số cột không cố định (1 người xem)
Trả lời
5
Đọc
259
dungluyen2119
dungluyen2119
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
390
Đọc
46K
phdong
P
8
Theo dõi bán hàng
Trả lời
10
Đọc
309
84huong
8
L
  • Question Question
Nhờ sửa code ChrW () (1 người xem)
Trả lời
2
Đọc
95
le_vis
L
N
  • Question Question
Hỗ trợ tiếng việt trong macro
Trả lời
12
Đọc
525
Quang_Hải
Quang_Hải
D
xin hỏi về lỗi mô đun ẩn.
Trả lời
6
Đọc
295
du trung kien
D
haohvnh
Lỗi hàm SUM không hiển thị ra kết quả
Trả lời
19
Đọc
45K
ptm0412
ptm0412
minhduc1o2
Hình ảnh bị lỗi #VALUE (1 người xem)
Trả lời
5
Đọc
175
minhduc1o2
minhduc1o2
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
5
Đọc
310
ongke0711
ongke0711
befaint
Chia sẻ tâm tư, xả nỗi lòng (1 người xem)
    • Thích
6 7 8
Trả lời
761
Đọc
61K
SA_DQ
SA_DQ
S
  • Question Question
Object.close và Set Object = nothing
Trả lời
14
Đọc
1K
nguyendang95
N
H
Lỗi khi sort data xin được hỗ trợ (1 người xem)
Trả lời
2
Đọc
123
hunglq48
H
Nguyenkhang2404
Tính định mức sản phẩm
    • Chấp nhận
Trả lời
9
Đọc
371
Nguyenkhang2404
Nguyenkhang2404
T
Ngắt kết nối với tệp lệnh đính kèm
Trả lời
2
Đọc
136
TungXauGiai
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
277
Đọc
35K
joker102
J
S
tỷ lệ % không khớp khi cộng tổng
Trả lời
2
Đọc
112
snoobcool
S
D
Tên sheet bị che khuất khi thực hiện sửa tên sheet
Trả lời
1
Đọc
273
PhamMaiTB
P
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

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom