שליחת email בפלאש

להורדת קבצי דוגמא

לעיתים בפלאש נרצה לעשות אחד משני דברים :

1. שהמשתמש ימלא טופס והוא יישלח אל הכתובת שלנו . ניתן להבדיל בין שני מצבים , פתיחת תוכנת הדואר של המשתמש (כמו outlook ודומיה) או שהמשתמש מכניס נתונים דרך שדות טקסט באתר , והם יישלחו ישירות אלינו .
   
   

2. שליחת מענה למשתמש לתיבת הדואר של המשתמש כאשר הוא מבצע הרשמה / שולח תגובה או כל פעולה שהוא עושה באתר . שליחת מענה בצורה זו מראה על יחס למשתמשים שלנו ועל תגובה מהירה לפניותייהם .

את ביצוע המשימה הראשונה ניתן לבצע בשני דרכים .

1. שימוש בפקודה :

getURL(“mailto:myname@server.com”);

תפתח את תוכנת הדואר של  המשתמש עם הכתובת הרשומה בפקודה כנמען , ותאפשר למשתמש לכתוב הודעה חופשית , לצרף קבצים , וכל פעולה אחרת שהוא רוצה לבצע בעזרת התוכנה .

ניתן לשפר את הצורה הזאת על ידי הכנסת ערכים גם לנושא , ואם רוצים גם למה שהמשתמש כותב בצורה הבאה .

GetURL(“mailto:myname@server.com?subject=hello&body=hello”);

במקרה הזה תיפתח תיבה של תוכנת הדואר , כאשר בנושא יהיה כתוב hello ובגוף ההודעה גם כן ...

ברגע שהמשתמש ילחץ על send תישלח ההודעה אל הנמען וזהו .

2. הדרך השניה משותפת גם למשימה השניה והיא שימוש ברכיב (component) של דואר באחת משפות התכנות לצד השרת . במקרה הזה נשלחת ההודעה על ידי פקודת getURL או loadVariables אל דף סקריפט בצד השרת בשפת asp,php או cgi (ועוד נוספות) , הנתונים שמקבל הסקריפט כולל את כתובת הנמען , שם הנמען , שם וכתובת השולח , הנושא וההודעה .

הסקריפט מקבל את הנתונים ועל ידי רכיב מיוחד לו שולח את ה-email אל הנמען .

באותה צורה גם תישלח הודעת תגובה לפעולה של משתמש . הסקריפט יקבל את הפעולה , השם והכתובת של המשתמש וישלח אליו mail בצורה אוטומטית .

בשיעור הזה נדון ברכיבי asp לדואר אלקטרוני . חשוב לציין כי לפני שכותבים על פי רכיב מסויים צריך לשאול את בעלי השרת שבו אתם משתמשים באיזה רכיב דואר הם משתמשים , ועל פיו לכתוב את תוכנית לשליחת ה-mail .

דבר ראשון אנחנו צריכים להעביר את כל הנתונים מהטופס שיצרנו בפלאש אל דף ה-asp . יש לנו שתי דרכים לעשות את זה , get ו-post (ראו שיעור בטפסים) .
נשתמש בשיטת ה-post שהיא השיטה הבטוחה יותר , ומאפשרת להעביר יותר מידע . אלה השלבים לשליחת כל טופס (לא משנה לאיזה תוכנת mail) :

1.      יצירת תיבות טקסט למשתמש (input text) , בשמות הבאים (לא חובה כמובן אבל עדיף להשתמש בשמות ברורים ): sendername , sendermail , recivername , recivermail , subject , body . על כל תיבות הטקסט להיות ב-timeline הראשי .

2.      יצירת כפתור שליחת הנתונים . ניתן לשלוח על ידי getURL למעבר דף בדפדפן או לבצע את השליחה מאחורי הקלעים , על ידי שימוש ב-loadVariables .

3.      נשתמש ב-getURL והפקודה תהיה :

on(release){

getURL(“sendform.asp”,”post”);

}

                        הפקודה הזאת שולחת את הנתונים לדף ה-asp .

4.      עכשיו צריך לקבל את הנתונים בדף ה-asp . נעשה זאת בצורה הבאה :

<%

sendername=request(“sendername”)

sendermail=request(“sendermail”)

recivername=request(“recivername”)

recivermail=request(“recivermail”)

subject=request(“subject”)

body=request(“body”)

%>

                        קיבלנו את הנתונים ונתנו להם שמות .

5.      עכשיו נעבור לרעיון המרכזי – שימוש ברכיב הדואר .

הערה : בכל רכיב יש יותר מדרך אחת להשתמש , כאן אני אביא את הדרכים הפשוטות ביותר . ניתן לקחת את הקוד מהשיעור , להחליף את הכתובות ולהשתמש בו לצרכיכם .כמעט עבור כל רכיב צריך גם את כתובת ה-host של השרת שלכם . תיצרו קשר עם התמיכה של השרת ותקבלו את הכתובת .

הרכיב הנפוץ ביותר – ASPMail

<%

Set Mailer = Server.CreateObject("SMTPsvg.Mailer")

Mailer.FromName   = sendername

Mailer.FromAddress= sendermail

               כאן את מכניסים את הכתובת של השרת 

Mailer.RemoteHost = "mailhost.localisp.net"

Mailer.AddRecipient recivername , recivermail 

               אם רוצים לכתוב יותר מנמען אחד ניתן להוסיף)כמובן להוסיף משתנים)

Mailer.AddRecipient recivername1 , recivermail1

Mailer.AddRecipient recivername2 , recivermail2

Mailer.Subject    = subject

Mailer.BodyText   = body

               בדיקה האם הדואר נשלח כראוי ותצוגה על המסך .

if Mailer.SendMail then

  Response.Write "Mail sent..."

else

  Response.Write "Mail send failure. Error was " & Mailer.Response

end if

%>

               להוספת קובץ ניתן להוסיף את השורה :

Mailer.AddAttachment "d:\mydocs\myfile.zip"

שימוש ב-CDOmail

<%
Set CDOMail = Server.CreateObject("CDONTS.NewMail")
CDOMail.From = "someone@theserver.com"
CDOMail.To = "webmaster@wasadata.com"
CDOMail.Cc = "info@wasadata.com"
CDOMail.Subject = "Test"
CDOMail.Body = "this is my mail!"
CDOMail.Send
Set CDOMail = Nothing
%>

במקרה הזה השתמשנו בכתובות אמיתיות ולא במשתנים כמו בפעם הקודמת – כמובן ששתי הצורות אפשריות גם כאן .

שימוש ב-Jmail

            הפורמט הפשוט ביותר שאני מכיר לשליחת דואר :

<%

set JMail = Server.CreateObject( "JMail.Speedmailer" )

JMail.SendMail "me@myDomain.com", "to@otherDomain.com,

to2@otherDomain.com", "subject", "Body", "mail.dimac.net"(server host)

%>