ارسال ايميل برمجيا

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

لكي تظهر تنبيه برساله بعد شهر من التاريخ الذي وضعته في مربع النص استخدم هذا الكود

If Date >= Me.txtDate + 30 Then
MsgBox "عزيزنا الزبون ... حان وقت سداد القسط الشهري"
End If

واذا رغبت في ارسال رسالة بريد الكتروني كتنبيه بحلول وقت السداد لشخص ما لديك مسبقا بريده الألكتروني فكل ما علي هو البحث في المنتدى عن مواضيع ارسال البريد مباشرة ثم ربطها بتاريخ السداد بحيث اذا حل وقت السداد بعد شهر البرنامج يرسل رساله للأشخاص الذين عليهم اقساط شهريه للتنبيه بالسداد .

بالتوفيق

zahrah كتب:

اخي الفاضل

السلام عليكم ورحمة الله وبركاته

لكي تظهر تنبيه برساله بعد شهر من التاريخ الذي وضعته في مربع النص استخدم هذا الكود

If Date >= Me.txtDate + 30 Then
MsgBox "عزيزنا الزبون ... حان وقت سداد القسط الشهري"
End If

واذا رغبت في ارسال رسالة بريد الكتروني كتنبيه بحلول وقت السداد لشخص ما لديك مسبقا بريده الألكتروني فكل ما علي هو البحث في المنتدى عن مواضيع ارسال البريد مباشرة ثم ربطها بتاريخ السداد بحيث اذا حل وقت السداد بعد شهر البرنامج يرسل رساله للأشخاص الذين عليهم اقساط شهريه للتنبيه بالسداد .

بالتوفيق

اشكرك على هذا التفاعل لقد تعلمت كثيرا من مواضيعك المميزه

في برنامجي هذا كان الموضوع ليس موضوع اقساط ولكن ضربت مثالا لتقريب الموضوع اليكم ولكن البرنامج عباره عن برنامج ادارة ألات بعد تركيبها ووضع التاريخ في الفورم داخل الداتا بيس أريد كود لارسال ايميل للشخص المسؤؤل عن

التشييك بعد شهر بالضبظ لمره واحده وبعد ذلك يقفل ولا يرسل كل شهر . وشكرا على تفاعلك ومساعدتنا .

بارك الله بك اخي الكريم

ابحث في المنتدى عن مواضيع ارسال البريد واربطها بالتاريخ فإذا جاء وقت التاريخ يتم فتح نموذج ارسال البريد المجهز بالبريد والرساله الخاصة التي تريدها الى الشخص صاحب البريد

بالتوفيق

zahrah كتب:

بارك الله بك اخي الكريم

ابحث في المنتدى عن مواضيع ارسال البريد واربطها بالتاريخ فإذا جاء وقت التاريخ يتم فتح نموذج ارسال البريد المجهز بالبريد والرساله الخاصة التي تريدها الى الشخص صاحب البريد

بالتوفيق

الف شكر استاذتنا على اهتمامك

أخي .. دا كود vb6 لإرسال إيميل .. بس الكود ده بيشترط وجود أكونت بإسمك على الجيميل لأنه يرسل الإيميل من خلاله .. يمكنك إنشاء أكونت جديد من هنا https://www.gmail.com .. ويمكنك تعديل هذا الكود ليتوافق مع أي لغة vb.net أو c# أو أي لغة أخرى .. وأي استفسار تحت أمرك

الكود:

Private Function Send_Email(Sender_Mail As String, Sender_Password As String, Sender_Name As String, Recipient_Mail As String, Recipient_Name As String, Subject_Message As String, Content_Message As String, ByVal Attachment_Files As String) As Boolean

On Error GoTo E

Dim Msg As Object: Set Msg = CreateObject("CDO.Message")

Msg.BodyPart.Charset = "UTF-8"

Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"

Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "465"

Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True

Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'=========================

Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Sender_Mail

Msg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Sender_Password

Msg.From = Sender_Name & "<Gmail>"

Msg.To = Recipient_Name & "<" & Recipient_Mail & ">"

'Msg.CC = "x@x, x@x, x@x"

'Msg.BCC = "x@x, x@x, x@x"

'Msg.ReplyTo = "x@x"

Msg.Subject = Subject_Message

Msg.TextBody = Content_Message

If Attachment_Files <> "" Then Attachment_Files = "<|>" & Attachment_Files

Dim i As Integer, N As Integer

For i = 1 To Len(Attachment_Files)

If Mid(Attachment_Files, i, Len("<|>")) = "<|>" Then: N = Val(N) + 1: Msg.AddAttachment Split(Attachment_Files, "<|>")(N)

Next

'=========================

Msg.Configuration.Fields.Update

Msg.send

Set Msg = Nothing

Send_Email = True

E:

End Function

Private Sub Command1_Click()

Dim Msgg As Boolean

Msgg = Send_Email("Yourmail@gmail.com", "password", "Your Name", "Send to mail", "", "Subject", "This is the message", "") 'Attachment_Files = "" OR "c:\1.txt" OR "c:\1.txt<|>c:\2.txt<|>c:\3.txt"

If Msgg = True Then

MsgBox "Success send"

Else

MsgBox "Fail send"

End If

End Sub