שימוש באובייקט CDO.Message לשליחת מייל לתיקיית Pickup

מהי תיקיית Pickup?

תיקיית Pickup משמשת את שרת ה-SMTP של IIS לשליחת הודעות דואר. הודעות המונחות בתיקייה זו נשלחות אוטומטית על ידי השרת בפורמט RFC822.

דוגמא לקוד תקין

<%

' הגדרת משתנים
Dim StrHtmlBody, strSubject
StrHtmlBody = "<b>Your Html Text Body</b>"
strSubject = "Mail Test"

' יצירת אובייקט CDO.Message
Set objEmail = CreateObject("CDO.Message")

' הגדרות הודעה
objEmail.From = "mail@yourdomain.com"
objEmail.To = "mail@yourdomain.com"
objEmail.Subject = strSubject
objEmail.HTMLBody = StrHtmlBody  ' קביעת גוף ההודעה בפורמט HTML

' הגדרות קונפיגורציה
With objEmail.Configuration.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
    .Update
End With

' שליחת המייל
On Error Resume Next
objEmail.Send

' טיפול בשגיאה
If Err.Number <> 0 Then
    Response.Write "Error sending email: " & Err.Description
Else
    Response.Write "Email sent successfully!"
End If

' ניקוי אובייקט
Set objEmail = Nothing

%>

    

שלבים לווידוא תקינות:

1. וודא שהתיקייה \inetpub\mailroot\pickup קיימת ושיש הרשאות כתיבה.
2. וודא ששרת IIS מוגדר נכון ופעיל.
3. בדוק שכתובות המייל (From ו-To) תקינות.
4. אם המיילים אינם נשלחים, בדוק את תיקיית badmail בנתיב \inetpub\mailroot\badmail.