Mình muốn tạo 1 button khi ta nhấn vào nút này, sẽ tự động gửi lấy thông số ID của CPU tại máy đó và gửi về địa chỉ email abcxyz@gmail.com
Nhờ các anh chị giúp em với ạ
Xin chân thành cám ơn !
Em đã thử gửi email nhưng k được vậy a? A có thể mặc định địa chỉ email vào luôn được không, khi nhấn nút là sẽ tự gửi số ID luôn à. Cám ơn a nhiều nha
Em đã thử gửi email nhưng k được vậy a? A có thể mặc định địa chỉ email vào luôn được không, khi nhấn nút là sẽ tự gửi số ID luôn à. Cám ơn a nhiều nha
Bạn sử dụng phần mềm nào để gửi mail, Code mình viết giả định là sử dụng outlook, còn mình chưa đủ khả năng code để tìm ra phần mềm email mặc định của máy (có máy dùng lotus, có máy dùng thunderbird, v.v...
Trong trường hợp bạn muốn gán 1 email cố định thì trong phần coding mục gửi mail bạn sửa lại 1 chút:
Mã:
'Bỏ phần màu đỏ đi
[COLOR=#ff0000]'MsgBox "Mainboard serial cua ban la: " & strSystemSerialNumber & Chr(10) & _[/COLOR]
[COLOR=#ff0000]'"CPU ID cua ban la: " & strSystemSerialNumber & Chr(10) & _[/COLOR]
[COLOR=#ff0000]'"Ban co muon email thong tin nay khong?", vbYesNo, "Thong tin CPU"[/COLOR]
[COLOR=#ff0000]
[/COLOR]
[COLOR=#ff0000]'If vbYes Then[/COLOR]
[COLOR=#ff0000]'ActiveWorkbook.Save[/COLOR]
[COLOR=#ff0000]'myEmail = InputBox("Vui long nhap dia chi email:", "Email thong tin")[/COLOR]
'Bat dau gui mail qua outlook--------------------
Dim OutApp As Object
Dim OutMail As Object
Dim myEmail as string
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
[COLOR=#0000ff] [B]myEmail = abcd@gmail.com[/B] [/COLOR][COLOR=#008000]'Thêm dòng này vào[/COLOR][COLOR=#0000ff][/COLOR]
On Error Resume Next
With OutMail
.to = myEmail 'Dia chi email da nhap vao
.CC = ""
.BCC = ""
.Subject = "Day la thong tin CPUID cua " & myEmail
.Body = myInfo 'Thong tin CPU
.Attachments.Add ActiveWorkbook.FullName
.[B][COLOR=#0000ff]SEND[/COLOR] [/B][COLOR=#008000]'Thay vì chọn .Display, sửa lại là .SEND để gửi đi luôn[/COLOR]
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
'Ket thuc viec gui mail------------------------------------
Bạn sử dụng phần mềm nào để gửi mail, Code mình viết giả định là sử dụng outlook, còn mình chưa đủ khả năng code để tìm ra phần mềm email mặc định của máy (có máy dùng lotus, có máy dùng thunderbird, v.v...
Trong trường hợp bạn muốn gán 1 email cố định thì trong phần coding mục gửi mail bạn sửa lại 1 chút:
Mã:
'Bỏ phần màu đỏ đi
[COLOR=#ff0000]'MsgBox "Mainboard serial cua ban la: " & strSystemSerialNumber & Chr(10) & _[/COLOR]
[COLOR=#ff0000]'"CPU ID cua ban la: " & strSystemSerialNumber & Chr(10) & _[/COLOR]
[COLOR=#ff0000]'"Ban co muon email thong tin nay khong?", vbYesNo, "Thong tin CPU"[/COLOR]
[COLOR=#ff0000]
[/COLOR]
[COLOR=#ff0000]'If vbYes Then[/COLOR]
[COLOR=#ff0000]'ActiveWorkbook.Save[/COLOR]
[COLOR=#ff0000]'myEmail = InputBox("Vui long nhap dia chi email:", "Email thong tin")[/COLOR]
'Bat dau gui mail qua outlook--------------------
Dim OutApp As Object
Dim OutMail As Object
Dim myEmail as string
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
[COLOR=#0000ff] [B]myEmail = abcd@gmail.com[/B] [/COLOR][COLOR=#008000]'Thêm dòng này vào[/COLOR]
On Error Resume Next
With OutMail
.to = myEmail 'Dia chi email da nhap vao
.CC = ""
.BCC = ""
.Subject = "Day la thong tin CPUID cua " & myEmail
.Body = myInfo 'Thong tin CPU
.Attachments.Add ActiveWorkbook.FullName
.[B][COLOR=#0000ff]SEND[/COLOR] [/B][COLOR=#008000]'Thay vì chọn .Display, sửa lại là .SEND để gửi đi luôn[/COLOR]
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
'Ket thuc viec gui mail------------------------------------
Thử trên các máy Win 2007 - Office 2007 chạy bình thường. Minh đã thử trên máy chạy Win XP - Office 2007 không lấy được ID của CPU bạn giải thích hộ mình lý do.
