نیاز به سورس ارسال ایمیل

[amirking76 15]

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

توی انجمن سورس ارسال ایمیل بود ولی کار نمیکرد و مشکل داشت مینوشت ایمیل ارسال نشد

لطفا یه سورس و یا اموزش ارسال ایمیل بزارید ممنونم

[moinmah 40]

شما ان کارو بکن :

1)کتابخونه phone رو فعال بکن

2) تویه Globals این کد رو بنویس :

Dim Send as Email

بعد این کد هارو در رویداد یک دکمه یا هرچیز دیگه ای بنویس ( مثلا اینجا دکمه )

Sub Button1_click
Try
      send.To.Add("Your [email protected]")
      send.Subject = "subject"
       send.Body = "Body"
       StartActivity(mail.GetIntent)
   Catch
       ToastMessageShow("ّFailed", False)
   End Try
End sub

که Subject موضوعه ایمیله و Body متن پیامه...

Try و Catch هم برای اینه که اگه مشکلی پیش اومد برنامه ارور جاوا نده...

اگه بازم مشکل داشتید بگید که سورس براتون تهیه کنم.

موفق باشید

[errrehossiny 1]

ممنون از سورس

ببخشید برای من ارور میده که  'mail' is used before it was assigned any value.
 

به این کد ایراد میگیره

StartActivity(mail.getintent)

 

من کتابخانه ی phone رو فعال کردم و 

رو هم نوشتم

 لطفا راهنمایی کنید Dim send As Email

[hossein7 82]

mail  ارور میده 

[KMOHAMMAD 10]

سلام

اول بخشید که تایپیک قدیمی  را دوباره زنده کردم

مجبور بودم

من اومدم کدهای زیر را برای ارسال پیام به ایمیلی توی بنرامه نوشتم

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim phone As Email
	Private EditText1 As EditText
	Private Button1_send As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("lay")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_send_Click
phone.To.Add("[email protected]")
phone.Subject = "نظرات کاربران"
phone.Body = EditText1.Text
StartActivity(phone.GetIntent)

If EditText1.Text = "" Then
ToastMessageShow("لطفا پیام خود را بنویسید",False)
End If
End Sub

ولی وقتی ران می گیرم  اول این خطا میده

بعد هم این خطا 

فقط هم همین برنامه چنین خطایی میاد؟؟؟

[Elyas Erfani 3,582]

mail  ارور میده

سلام

دقت کنید :

Dim b4a as email

b4a.to.add("[email protected]")

b4a.body = "matn"

b4a.subject = " title"

startactivity(b4a.GetIntent)

کتابخانه Phone روهم فعال کنید

[2delboro 12]

سلام

دقت کنید :

Dim b4a as email

b4a.to.add("[email protected]")

b4a.body = "matn"

b4a.subject = " title"

startactivity(b4a.GetIntent)

کتابخانه Phone روهم فعال کنید

سلام یه سوالی داشتم خب ما ایمیل خودمون رو میدیم برنامه ایمیل طرف رو از کجا میاره ؟؟؟

[arastooms 1,046]

سلام یه سوالی داشتم خب ما ایمیل خودمون رو میدیم برنامه ایمیل طرف رو از کجا میاره ؟؟؟

سلام 

در واقع ما میگیم به گوشی که بیا یه ایمیل بزن به آدرس .........( آدرس ما )

گوشی میاد گنترل میکنه ببینه کاربر قبلا  قسمت ایمیل گوشی خودش رو فعال کرده و مشخصات ایمیل خودش رو ( کاربر) در تنظیمات وارد کرده یانه 

و میاد خیلی ساده از تنظیماتی که کاربر قبلا انجام داده توسط ایمیل کار بر به ما یه ایمیل میزنه 

اگر هم کاربر تا حالا از ایمیل گوشی استفاده نکرده باشه 

میاد بهش میگه تنظیمات شخصی ایمیل رو انجام بده اگر میخای الان ایمیل بزنی 

موفق باشید

[arastooms 1,046]

به کم جستجو میزدین مشکلتون حل میشد

سلام فکر کنم این سورس شما کمی خطرناک باشه!!

دقت کنید در استفاده!!

چون اگر فردی بلد باشه ( که کار سختی هم نیست و برنامه رو از روی فایل apk بازکنه یا اصطلاحا " دی کامپایل " کنه فایل برنامه شما رو 

به پسورد و آدرس ایمیل شما یا شرکت یا .... دست رسی داره 

البته اساتید هستند میتونن راهنمایی کنند

پیشنهاد من استفاده از همون کتابخونه phone هست و ایمیل گوشی

[arastooms 1,046]

شما ان کارو بکن :

1)کتابخونه phone رو فعال بکن

2) تویه Globals این کد رو بنویس :

Dim Send as Email

بعد این کد هارو در رویداد یک دکمه یا هرچیز دیگه ای بنویس ( مثلا اینجا دکمه )

Sub Button1_click
Try
       send.To.Add("Your [email protected]")
       send.Subject = "subject"
        send.Body = "Body"
        StartActivity(mail.GetIntent)
    Catch
        ToastMessageShow("ّFailed", False)
    End Try
End sub

که Subject موضوعه ایمیله و Body متن پیامه...

Try و Catch هم برای اینه که اگه مشکلی پیش اومد برنامه ارور جاوا نده...

اگه بازم مشکل داشتید بگید که سورس براتون تهیه کنم.

موفق باشید

 

سلام دوست عزیز مرسی بابت راهنمایی 

میشه توضیح بدی تو اکتیویتی mail چی کار باید بکنیم ؟

چون خط آخر میگه برو به اکتیویتی mail!!!

[MahdiHD 1,748]

دوست عزیز mail یک اکتیویتی نیست و یک اینتنت است!

[alidownload 12]

دوستمون راست می گه ازmail ایراد می گیره چی کار باید کرد

[sshayan 0]

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

 

میشه کاری کرد که ظرف با زدن یک دکمه  ،  بتونه همزمان یک متن رو برای تعدادی  ایمیل یا جیمیل بصورت همزمان بفرسنه 

یعنی طرف یک متن رو که ارسال کرد برای مثلا 20 نفر که بنده اون 20 نفر رو تو سورس و کد ها مشخص میکنم  بفرسته و اونم بصورت همزمان 

 

 

ممنون واسه انجمن عالیتون        

[moinmah 40]

در این روش از طرف می پرسه که با کدوم برنامه؟

بعد طرف Gmail یا Email رو انتخاب میکنه از ایمیل طرف بقیه این موارد زده میشه ( یعنی اگه طرف مثلا در برنامه Gmail رمز و ایمیلشو زده

 

باشه ، به صفحه ارسال ایمیل منتقل میشه واگه وارد نکرده باشه ، ازش می خواد رمز و ایمیلشو وارد)...

 

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

ضیحی میدید انگار یک

 

دوست عزیز پست قدیمی رو بی دلیل و بی جهت بالا نیارید

توضیح به این خوشکلی داده شده دیگه مشکل کجاست ؟

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

پست شما هم حذف شد

[alidownload 12]

یعنی باید چی کار کرد

[mmv68t 27]

به کم جستجو میزدین مشکلتون حل میشد

Sub Process_Globals

    Dim SMTP As SMTP

End Sub

Sub Globals



    Dim EditText1 As EditText

    Dim EditText2 As EditText

    Dim ersalshe As Button

    Dim Label1 As Label

    Dim Label2 As Label

    Dim su As StringUtils



End Sub



Sub Activity_Create(FirstTime As Boolean)



Activity.LoadLayout ("ersalkardan")



    If FirstTime Then

        SMTP.Initialize("SMTP.Gmail.com",587, "[email protected]", "passwordGmail", "SMTP")

        SMTP.StartTLSMode = True

    End If

    

    

Label1.Width = 94%x    

Label1.Left = 3%x

Label1.Height = su.MeasureMultilineTextHeight(Label1, Label1.Text)    

Label1.Top = 2%y



EditText1.Width = 60%x 

EditText1.Left= 3%x

Label2.Width = 33%x

Label2.Left = 64%x

Label2.Top = Label1.Height + 3%y

EditText1.top = Label1.Height + 3%y



EditText2.Width = 94%x

EditText2.Left = 3%x

EditText2.Height = 100%y -Label1.Height - 7%y - EditText1.Height - ersalshe.Height 

EditText2.Top = Label1.Height + 4%y +EditText1.Height 



ersalshe.Top = Label1.Height + 6%y +EditText1.Height + EditText2.Height 

ersalshe.Width = 25%x

ersalshe.Left = 40%x



    

    



End Sub







Sub SMTP_MessageSent(Success As Boolean)

    Log(Success)

    If Success Then

        ToastMessageShow("پیام با موفقیت ارسال شد", True)

    Else

        ToastMessageShow("پیام ارسال نشد لطفا به اینترنت وصل شوید", True)

        Log(LastException.Message)

    End If

End Sub 







Sub ersalshe_Click



If EditText1.Text.Length < 1 OR EditText2.Text.Length < 5 Then 

Msgbox ("لطفا فیلد ها را پر کنید","هشدار")



Else 

    SMTP.To.Add("[email protected]")

    SMTP.Subject = EditText1.Text 

    SMTP.Body =EditText2.Text 

    SMTP.Send

End If     

    

End Sub