Tôi đang nghiên cứu viết một chương trình tự động gửi Fax, nhưng chưa biết bắt đầu từ đâu. Tôi lên mạng search được đoạn code chương trình viết bằng VB.Net nói về cách gửi Fax bằng cách cấu hình Small Business Server (SBS) 4.5 và SBS 2000. Mọi người tham khảo và cho ý kiến giúp đỡ:
Sub SendSBSFax()
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
myOLItem = myOLApp.CreateItem(Outlook.OlItemType.olMailItem)
With myOLItem
.To = "[fax: 555 111-2222]"
.Subject = "Fax Subject"
.Body = "This is a sample fax."
End With
myOLItem.Send()
'cleanup
myOLApp = Nothing
myOLItem = Nothing
End Sub
Sub SendSBSFax()
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
myOLItem = myOLApp.CreateItem(Outlook.OlItemType.olMailItem)
With myOLItem
.To = "[fax: 555 111-2222]"
.Subject = "Fax Subject"
.Body = "This is a sample fax."
End With
myOLItem.Send()
'cleanup
myOLApp = Nothing
myOLItem = Nothing
End Sub
Comment