Truy cập mail trong Excel

[Hamvui]

Trong lúc làm viêc, em thường xuyên phải check mail. Vì vậy em muốn hỏi làm thế nào từ excel ta có thể truy cập trực tiếp yahoo. Tất nhiên là không phải khai báo nick và pas nữa.

Help me!!!!!!!!!!!!!

 

[nvson]

Truy cập mail trong Excel
Trong lúc làm viêc, em thường xuyên phải check mail. Vì vậy em muốn hỏi làm thế nào từ excel ta có thể truy cập trực tiếp yahoo. Tất nhiên là không phải khai báo nick và pas nữa.

Help me!!!!!!!!!!!!!

Về nguyên tắc là được. Qui trình thực hiện gồm các bước sau:
- Chạy trình duyệt web, mở trang đăng nhập của Yahoo Mail, xem mã nguồn (HTML) của trang này xem nó sẽ gửi thông báo "request" gì và với các tham số cụ thể nào về server mỗi khi bạn đăng nhập (sign-in) rồi ghi nhận lại thông báo này.
- Chạy VB, mở hay tạo mới Project VB, viết code thực hiện việc kết nối tới Yahoo server và gửi yêu cầu đăng nhập về server y như trang web Yahoo Mail đã làm.
===========
TGVT A0610_128

 

[nvson]

Ngoài ra bạn có thể tham khảo thêm ví dụ ActDoc.vbp trong đĩa MSDN

 

[levanduyet]

Ngoài ra bạn có thể tham khảo thêm ví dụ ActDoc.vbp trong đĩa MSDN

Bạn có thể cụ thể hơn được không?

Lê Văn Duyệt

 

[nvson]

Bạn có thể cụ thể hơn được không?

Em thấy đó là một ví dụ viết trong VB để kết nối đến các địa chỉ Internet.

 

[Hamvui]

Bác có thể hướng dẫn cụ thể hơn được không ?

 

[nvson]

Vì nó rất phức tạp. Theo mình nghĩ bạn nên sử dụng phần mềm tự động check mail "DynAdvance Notifier", mình dùng rồi, thấy rất hay.
Download tại địa chỉ sau:
http://www.dynadvance.com/download/mnsetup.exe

 

[nvson]

Mình mới sưu tầm được code này.
Các anh chị thử xem sao!

 

[PhanTuHuong]

Bạn có thể gửi email Sheet nào đó trong Excel (ST):

Sub Mail_ActiveSheet()
Dim strDate As String
ActiveSheet.Copy
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail "ron@debruin.nl", _
"This is the Subject line"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub

 

[ruadangyeu]

Mình không biết cách viết code để check mail trực tiếp từ yahoo nhưng bạn có thể dùng outlook để làm điều này sau đó vào excel viết code sau
(trước đó cần tham chiếu tới thư viện Microsoft outlook 11.0 object library)
Sub ruadangyeu_docmail()
Dim myol As Outlook.Application
Dim ns As Namespace
Dim folder As MAPIFolder
Dim ws As Worksheet
Dim i As Integer
Set myol = CreateObject("outlook.application")
Set ns = myol.GetNamespace("MAPI")
ns.Logon --> vào profile mặc định của OL
Set folder = ns.GetDefaultFolder(olFolderInbox)
Set ws = Workbooks("receive mail")
For i = 1 To folder.Items.Count
With folder.Items(i)
Cells(1, 1).Offset(i, 0) = .SenderName
Cells(1, 1).Offset(i, 1) = .SenderEmailAddress
Cells(1, 1).Offset(i, 2) = .Subject
Cells(1, 1).Offset(i, 3) = .Size
Cells(1, 1).Offset(i, 4) = .ReceivedTime
Cells(1, 1).Offset(i, 5) = .Body
End With
ns.Logoff
Set myol = Nothing
End Sub

//Nếu outlook của bạn có nhiều profile bạn dùng cấu trúc sau thay cho code ns.logon
ns.logon(profile, password)-->tên người dùng và mật khẩu

 

[lachinhan]

Có thể vào đây tham khảo thêm
http://exceltip.com/excel_tips/Mail_-_Send_and_Receive_in_VBA/211.html

 

[ruadangyeu]

Theo các bác để gửi và nhận mail trong excel thì mình cần cài đặt thêm cái gì cho máy của mình không hay cấu hình excel thế nào. Vì nếu chỉ viết code không như thế này thì có gửi đến tết sang năm cũng chẳng được cái mail nào.
Mong các cao thủ chỉ bảo thêm

 

[chikaboom]

Mình không biết cách viết code để check mail trực tiếp từ yahoo nhưng bạn có thể dùng outlook để làm điều này sau đó vào excel viết code sau
(trước đó cần tham chiếu tới thư viện Microsoft outlook 11.0 object library)
Sub ruadangyeu_docmail()
Dim myol As Outlook.Application
Dim ns As Namespace
Dim folder As MAPIFolder
Dim ws As Worksheet
Dim i As Integer
Set myol = CreateObject("outlook.application")
Set ns = myol.GetNamespace("MAPI")
ns.Logon --> vào profile mặc định của OL
Set folder = ns.GetDefaultFolder(olFolderInbox)
Set ws = Workbooks("receive mail")
For i = 1 To folder.Items.Count
With folder.Items(i)
Cells(1, 1).Offset(i, 0) = .SenderName
Cells(1, 1).Offset(i, 1) = .SenderEmailAddress
Cells(1, 1).Offset(i, 2) = .Subject
Cells(1, 1).Offset(i, 3) = .Size
Cells(1, 1).Offset(i, 4) = .ReceivedTime
Cells(1, 1).Offset(i, 5) = .Body
End With
ns.Logoff
Set myol = Nothing
End Sub

//Nếu outlook của bạn có nhiều profile bạn dùng cấu trúc sau thay cho code ns.logon
ns.logon(profile, password)-->tên người dùng và mật khẩu

Bạn ơi bạn có thể thêm vào giùm minh điều kiện chỉ lấy những mail có status là unread thôi được không ?