Compartilhar via

  • Artigo

Sending SMTP Mail by the Pickup Directory Using CDOSYS (Visual Basic)

Topic Last Modified: 2006-06-11

Example

Visual Basic

'Sending SMTP mail via the pickup directory using CDOSYS
'Send using the Pickup directory on the IIS server
    
     
Private Sub sendmsg(strTo As String, strFrom As String)


Dim iMsg As New CDO.Message
Dim iConf As New CDO.Configuration
Dim Flds As ADODB.Fields
Dim strHTML

Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPickup
.Item(cdoSMTPServerPickupDirectory) = "c:\inetpub\mailroot\pickup"
.Update
End With

' Build HTML for message body
strHTML = "<HTML>"
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "<b> This is the test HTML message body</b></br>"
strHTML = strHTML & "</BODY>"
strHTML = strHTML & "</HTML>"

With iMsg
Set .Configuration = iConf
.To = strTo
.From = strFrom
.Subject = "This is a test CDOSYS message (Pickup directory)"
.HTMLBody = strHTML

.Send
End With

' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

End Sub