Tùy chọn
Gửi Email bằng OutLook
- Gửi Email bằng OutLook
-
Gửi Email bằng OutLook
Godspear > 22-03-17, 12:33 PM
Mình đã viết được 1 đoạn code cho nút lệnh để tự động nhận diện email của các kết quả có trong subform và gửi email cho những email đó bang outlook
mã code như sau:
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As Recordset
Dim CustomerEmail As String
If oOutlook Is Nothing Then
Set oOutlook = New Outlook.Application
End If
Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
Set rs = Me.SearchResult_subform.Form.Recordset
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
If IsNull(rs!Email) Then
rs.MoveNext
Else
CustomerEmail = CustomerEmail & rs!Email & ";"
.To = CustomerEmail
rs.MoveNext
End If
Loop
Else
MsgBox "No One Has Email Address"
End If
Set rs = Nothing
.CC = ""
.Subject = ""
.Display
End With
Set oEmailItem = Nothing
Set oOutlook = Nothing
mà vấn đề là khi lựa ra những email thì khi cửa sổ của outlook, các email đã được lấy ra nhưng mà lại theo dạng như dưới
[email=belindal@turningpoint.org.au#mailto:belindal@turningpoint.org.au]belindal@turningpoint.org.au#mailto:belindal@turningpoint.org.au[/email]#; [email=dan.lubman@monash.edu#mailto:dan.lubman@monash.edu]dan.lubman@monash.edu#mailto:dan.lubman@monash.edu[/email]#
nó bị lặp lại đến 2 lần và còn them chữ mailto, mình dg không biết thay đổi code ntn để nó lựa ra chỉ là cái email mà thôi [email=dan.lubman@monash.edu,]dan.lubman@monash.edu,[/email] belindal@turningpoint.org.au kiểu như vậy
Có ai biết về vấn đề này ko, chỉ giáo giúp với -
RE: Gửi Email bằng OutLook
paulsteigel > 22-03-17, 02:41 PM
(22-03-17, 12:33 PM)Godspear Đã viết: Mình đã viết được 1 đoạn code cho nút lệnh để tự động nhận diện email của các kết quả có trong subform và gửi email cho những email đó bang outlook
mã code như sau:
Dim oOutlook As Outlook.Application
Dim oEmailItem As MailItem
Dim rs As Recordset
Dim CustomerEmail As String
If oOutlook Is Nothing Then
Set oOutlook = New Outlook.Application
End If
Set oEmailItem = oOutlook.CreateItem(olMailItem)
With oEmailItem
Set rs = Me.SearchResult_subform.Form.Recordset
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF
If IsNull(rs!Email) Then
rs.MoveNext
Else
CustomerEmail = CustomerEmail & rs!Email & ";"
.To = CustomerEmail
rs.MoveNext
End If
Loop
Else
MsgBox "No One Has Email Address"
End If
Set rs = Nothing
.CC = ""
.Subject = ""
.Display
End With
Set oEmailItem = Nothing
Set oOutlook = Nothing
mà vấn đề là khi lựa ra những email thì khi cửa sổ của outlook, các email đã được lấy ra nhưng mà lại theo dạng như dưới
[email=belindal@turningpoint.org.au#mailto:belindal@turningpoint.org.au]belindal@turningpoint.org.au#mailto:belindal@turningpoint.org.au[/email]#; [email=dan.lubman@monash.edu#mailto:dan.lubman@monash.edu]dan.lubman@monash.edu#mailto:dan.lubman@monash.edu[/email]#
nó bị lặp lại đến 2 lần và còn them chữ mailto, mình dg không biết thay đổi code ntn để nó lựa ra chỉ là cái email mà thôi [email=dan.lubman@monash.edu,]dan.lubman@monash.edu,[/email] belindal@turningpoint.org.au kiểu như vậy
Có ai biết về vấn đề này ko, chỉ giáo giúp với
Các email khi lưu thường có dạng một liên kết có 2 phần - Địa chỉ và Action để khi ta nhấn vào nó, một cửa sổ soạn thư mở ra để gửi thư. Tôi không dùng outlook nên không nắm được thuộc tính chỉ lấy email. Tuy vậy, bạn có thể sử dụng việc duyệt chuỗi đơn giản bằng cách viết một hàm chỉ lấy thông tin trước dấu # đầu tiên hoặc lấy phần sau mailto.
Viết một hàm thế này
Mã PHP:Function GetEmail(txt as string) as string
On error goto ErrHandler
GetEmail = left(txt,instr(txt,"#")-1)
ErrHandler:
end function
Dùng nó thế này
Ngoài ra bạn đang nối chuỗi CustomerEmail = CustomerEmail & GetEmail(rs!Email) & ";"
Chúc bạn thành công! -
RE: Gửi Email bằng OutLook
ongke0711 > 22-03-17, 11:31 PM
Bạn bỏ định dạng hyperlink của trường Email đi là được rồi.
Đoạn code: .To =CustomerEmail bạn đưa ra sau cùng, không cần nằm trong vòng lặp Do..Loop -
RE: Gửi Email bằng OutLook
paulsteigel > 23-03-17, 02:20 PM
(22-03-17, 11:31 PM)ongke0711 Đã viết: Bạn bỏ định dạng hyperlink của trường Email đi là được rồi.
Đoạn code: .To =CustomerEmail bạn đưa ra sau cùng, không cần nằm trong vòng lặp Do..Loop
Ông kẹ ơi, bạn ấy gửi 1 thư cho nhiều người mà! email; email; .... sẽ tiện hơn thay vì tạo nhiều email.
Mình không có outlook nên không biết thuộc tính của nó - hy vọng nó có chế độ đọc email dạng plaintext thì chả phải làm gì! -
RE: Gửi Email bằng OutLook
ongke0711 > 23-03-17, 07:35 PM
(23-03-17, 02:20 PM)paulsteigel Đã viết:
(22-03-17, 11:31 PM)ongke0711 Đã viết: Bạn bỏ định dạng hyperlink của trường Email đi là được rồi.
Đoạn code: .To =CustomerEmail bạn đưa ra sau cùng, không cần nằm trong vòng lặp Do..Loop
Ông kẹ ơi, bạn ấy gửi 1 thư cho nhiều người mà! email; email; .... sẽ tiện hơn thay vì tạo nhiều email.
Mình không có outlook nên không biết thuộc tính của nó - hy vọng nó có chế độ đọc email dạng plaintext thì chả phải làm gì!
Cách của mình (bỏ hyperlink, giữ nguyên code cũ) cũng ra kết quả tương tự bác nhưng cách bác thì tiện hơn ở chỗ khỏi phải sửa định dạng Hyperlink trong table.