SMTP (Simple Mail Transfer Protocol) нь э-майлыг дамжуулах стандарт хэрэглээнд ашиглагддаг бөгөөд бид энд зөвхөн ямар ач холбогдолтой хэрхэн хэрэглэх талаар хялбаршуулсан зөвлөмж өгөхийг зорьж байна.
Бид тус серверийг мөн чанарыг ойлгож ашигласнаар Microsoft Outlook ч юмуу ямар нэгэн стандарт программ хангамж ашиглахгүйгээр программчлалын түвшинд хэрэглээг хялбар болгон горимын үйл ажиллагаанд хэрэглэж болох юм.
Одоо бид Visual Basic программчилалд Microsoft CDO for Windows 2000 Library-г ашиглан хэрхэн программчлах тухай сонирхоцгооё. Энэхүү сан нь систем агууламжинд C:\Windows\system32\ хавтаст cdosys.dll нэртэйгээр байрлах бөгөөд Visual Basic application-аа нээж Project цэсний Reference-ийг дарж Microsoft CDO For Windows 2000 Library-г идвэхжүүлнэ. Үүний дараагаар доорх script-г бичиж ажиллуулахад таны э-майл дамжигдахад бэлэн болно.
Dim iMsg As New cdo.Message
Dim iConf As New cdo.Configuration
Dim Flds As Adodb.Fields
Screen.MousePointer = vbHourglass
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdo.CdoSendUsing.cdoSendUsingPort
.Item(cdoSMTPServer) = "192.168.100.11" ' Энэ нь серверийн IP хаяг
.Item(cdoSMTPServerPort) = 25 ' SMTP нь 25 гэсэн port-ийг ашиглан ' өгөгдлийг дамжуулдаг юм
.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "mnub@namhem.go.mn"
.CC = "mnni@namhem.go.mn"
.From = "mnug@namhem.go.mn"
.Subject = SAMO31 ZMUB 160100
.TextBody = SAMO31 ZMUB 160100 + vbNewLine + Text1.Text + "="
.Send
End With
Screen.MousePointer = vbDefault
Жишээ нь бид дээрх script-ийг баяжуулан ашиглаж программчлалыг боловсронгуй болгон мэдээллийг операторын оролцоогүйгээр автоматаар дамжуулах гэх мэтээр хэрэглэж болно.
<<-Буцах
Бид тус серверийг мөн чанарыг ойлгож ашигласнаар Microsoft Outlook ч юмуу ямар нэгэн стандарт программ хангамж ашиглахгүйгээр программчлалын түвшинд хэрэглээг хялбар болгон горимын үйл ажиллагаанд хэрэглэж болох юм.
Одоо бид Visual Basic программчилалд Microsoft CDO for Windows 2000 Library-г ашиглан хэрхэн программчлах тухай сонирхоцгооё. Энэхүү сан нь систем агууламжинд C:\Windows\system32\ хавтаст cdosys.dll нэртэйгээр байрлах бөгөөд Visual Basic application-аа нээж Project цэсний Reference-ийг дарж Microsoft CDO For Windows 2000 Library-г идвэхжүүлнэ. Үүний дараагаар доорх script-г бичиж ажиллуулахад таны э-майл дамжигдахад бэлэн болно.
Dim iMsg As New cdo.Message
Dim iConf As New cdo.Configuration
Dim Flds As Adodb.Fields
Screen.MousePointer = vbHourglass
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdo.CdoSendUsing.cdoSendUsingPort
.Item(cdoSMTPServer) = "192.168.100.11" ' Энэ нь серверийн IP хаяг
.Item(cdoSMTPServerPort) = 25 ' SMTP нь 25 гэсэн port-ийг ашиглан ' өгөгдлийг дамжуулдаг юм
.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "mnub@namhem.go.mn"
.CC = "mnni@namhem.go.mn"
.From = "mnug@namhem.go.mn"
.Subject = SAMO31 ZMUB 160100
.TextBody = SAMO31 ZMUB 160100 + vbNewLine + Text1.Text + "="
.Send
End With
Screen.MousePointer = vbDefault
Жишээ нь бид дээрх script-ийг баяжуулан ашиглаж программчлалыг боловсронгуй болгон мэдээллийг операторын оролцоогүйгээр автоматаар дамжуулах гэх мэтээр хэрэглэж болно.
<<-Буцах