Code gửi mail tự động (1 người xem)

[vungoc]

Cài này ứng dụng như thế nào nhỉ, nếu được cho cái hướng dẫn sử dụng luôn nha đồng chí Po (tuổi trẻ mà tài cao)?!
Cảm ơn nhiều!

 

[Hai Lúa Miền Tây]

Đây là 1 công cụ khá hữu dụng, kết hợp với MS Office Outlook để gửi mail tự động dựa vào danh sách email, gửi kèm file từng sheet tạo ra từng file riêng theo qui định.
Có thể ứng dụng trong việc gửi đơn hàng cho nhà cung cấp, bảng lương cho từng nhân viên mà tiết kiệm thời gian rất lớn.

 

[Po_Pikachu]

Code ở trên phức tạp quá. Lỗi lung tung cả lên rùi. Ai đó muốn nâng cấp đầy đủ thì xem nó sau đi. Giờ quay về cái đơn giản nha!
Đầu tiên cần phải kích hoạt Microsoft CDO for Windows 2000 Library mới chạy được nha (Bạn vào cửa sổ VBA -> chọn Tools -> Reference.. -> kéo thanh trược tìm dòng Microsoft CDO for Windows 2000 Library -> Click vào -> OK).

Private Sub CommandButton1_Click()
Dim Flds
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = cdoSendUsingPort
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 25
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "bcdf573@gmail.com"                'Dia chi that
Flds.Item(schema & "sendpassword") = "************"                       'Pass that
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "po_pikachu@ymail.com"                                        'tuy y
.CC = ""
.BCC = ""
.AddAttachment ("C:\IP_Address.txt")                'Dia chi file phai ton tai
.from = "testmail3" & "<" & "Blanche_Princess@yahoo.com" & ">"      'tuy y
.Subject = "Subject3"                                               'tuy y
.HTMLBody = "Hello, This is a Test Mail & File"                     'tuy y
Set .Configuration = iConf
.Send
End With
MsgBox "Ðã Xong"
End Sub

Ứng dụng thì nhiều lắm.
Có người đã từng hỏi. "Muốn gửi thư mời họp của toàn thể công ty thì sao?". Vậy là văn phòng ngồi cả ngày lẫn đêm cứ copy/paste mãi. Giờ thì dùng như vầy cho tiện. Phần nội dung hay file đính kèm thì cũng có thể thêm dễ dàng và không báo lỗi Outlook nữa.
Còn giới hạn thư gửi bao nhiêu 1 ngày thì cho em xin kiếu. Hộp thư em đầy mât rùi. hihi
Mà Cấm mọi ng SPAM thư em đó nha!
Thân.

 

[adult]

Code ở trên phức tạp quá. Lỗi lung tung cả lên rùi. Ai đó muốn nâng cấp đầy đủ thì xem nó sau đi. Giờ quay về cái đơn giản nha!
Đầu tiên cần phải kích hoạt Microsoft CDO for Windows 2000 Library mới chạy được nha (Bạn vào cửa sổ VBA -> chọn Tools -> Reference.. -> kéo thanh trược tìm dòng Microsoft CDO for Windows 2000 Library -> Click vào -> OK).

Private Sub CommandButton1_Click()
Dim Flds
Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Set Flds = iConf.Fields
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = cdoSendUsingPort
Flds.Item(schema & "smtpserver") = "smtp.gmail.com"
Flds.Item(schema & "smtpserverport") = 25
Flds.Item(schema & "smtpauthenticate") = 1
Flds.Item(schema & "sendusername") = "bcdf573@gmail.com"                'Dia chi that
Flds.Item(schema & "sendpassword") = "************"                       'Pass that
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg
.To = "po_pikachu@ymail.com"                                        'tuy y
.CC = ""
.BCC = ""
.AddAttachment ("C:\IP_Address.txt")                'Dia chi file phai ton tai
.from = "testmail3" & "<" & "Blanche_Princess@yahoo.com" & ">"      'tuy y
.Subject = "Subject3"                                               'tuy y
.HTMLBody = "Hello, This is a Test Mail & File"                     'tuy y
Set .Configuration = iConf
.Send
End With
MsgBox "Ðã Xong"
End Sub

Ứng dụng thì nhiều lắm.
Có người đã từng hỏi. "Muốn gửi thư mời họp của toàn thể công ty thì sao?". Vậy là văn phòng ngồi cả ngày lẫn đêm cứ copy/paste mãi. Giờ thì dùng như vầy cho tiện. Phần nội dung hay file đính kèm thì cũng có thể thêm dễ dàng và không báo lỗi Outlook nữa.
Còn giới hạn thư gửi bao nhiêu 1 ngày thì cho em xin kiếu. Hộp thư em đầy mât rùi. hihi
Mà Cấm mọi ng SPAM thư em đó nha!
Thân.

Bạn ơi! ví dụ mình có 1 list khoảng 100 người muốn gửi mỗi người 1 file attach thì mình điều chỉnh code như thế nào? Bạn gíup mình với nhé!
Thánks

 

[anh2hn]

em cần gửi cho 1000 người được không, thử mãi chẳng thấy lay động gì

 

[adult]

các bác vui lòng gíup mình với. hĩ hix hix

 

[vanthoht]

đơn giản thế thì mình cũng tạo dc

có gi khó đâu
cái khó ở chổ là chuyển cái ấy sang ten.html kia
vi trang web hien nay ko ai dùng cái ấy cã
úng dụng cũa nó thì vô số
đặc biệt là có ích cho hackker
mình đa chơi nhiều người rồi
mình định upload file chuyễn thể cho các bạn xem nhưng sợ
ai cần thì mail cho mình
vantho965@gmail.com

 

[haonlh]

Code ở trên phức tạp quá. Lỗi lung tung cả lên rùi. Ai đó muốn nâng cấp đầy đủ thì xem nó sau đi. Giờ quay về cái đơn giản nha!
Đầu tiên cần phải kích hoạt Microsoft CDO for Windows 2000 Library mới chạy được nha (Bạn vào cửa sổ VBA -> chọn Tools -> Reference.. -> kéo thanh trược tìm dòng Microsoft CDO for Windows 2000 Library -> Click vào -> OK).

Private Sub CommandButton1_Click()
....
With iMsg
.To = "po_pikachu@ymail.com"                                        'tuy y
.CC = ""
.BCC = ""
.AddAttachment ("C:\IP_Address.txt")                'Dia chi file phai ton tai
....
End Sub

Trong mã sau

.AddAttachment ("C:\IP_Address.txt") 'Dia chi file phai ton tai

IP_Address.txt chứa nội dung gì