ارسال عکس از طریق ایمیل

[محمدی 95]

سلام دوستان خسته نباشید

میخواستم بدونم آیا میشه از طریق ایمیل عکس فرستاد تو b4a?

اگه میشه میتونید بگید چطوری ممنون

[مهدی ایزدی 9,203]

درود

خدمت شما 

http://answercenter.ir/topic/11360-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D9%81%D8%A7%DB%8C%D9%84-%D8%A8%D9%87-%D9%88%D8%B5%DB%8C%D9%84%D9%87-%D8%A7%DB%8C%D9%85%DB%8C%D9%84

[محمدی 95]

مرسی آقای ایزدی اما نمیدونم چرا تز طریق کتابخونه Net هر کاری میکنم ایمیل ارسال نمیشه

آیا یه نمونه کوچیک از اون میذارید که کار کنه

[مهدی ایزدی 9,203]

درود

شما از اخرین نسخه کتابخانه Net استفاده کنید :

http://answercenter.ir/topic/10661-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-net-%D9%86%D8%B3%D8%AE%D9%87-160-%D8%A2%D9%BE%D8%AF%DB%8C%D8%AA-%D8%A8%D9%87-%D8%AA%D8%A7%D8%B1%DB%8C%D8%AE-15-%D8%AF%DB%8C-1394/

 

بعد از اینکه ایمیل ارسال شد یک رویداد داره به نام MessageSent که مقدار برگشتی رو به صورت True یا False رو بهمون میده.

توش به صورت زیر چک کنید که ارسال انجام میشه یا خیر

اگه نه هم دلیل رو توی LastException.Message بهتون در MsgBox نشون میده

Sub SMTP_MessageSent(Success As Boolean)
	If Success Then
	ToastMessageShow("Message sent", True)
	Else
	Msgbox("Error: " & LastException.Message , "")
	End If
End Sub

تست کنید نیتجه رو همینجا گزارش کنید