السلام عليكم
اريد ان اسأل عن عملية بعث Email, لقد قمت بتصميم form الازم لذلك (المرفق في الاسفل), و عندي الكود لبعث Email ولكن المشكلة لم افهم الكود جيدا, و الكود ينقسم الى قسمين :
:( :(
الاول) SMTP Service
' Ensure the SMTP Service is installed and running Dim services() As ServiceController = ServiceController.GetServices Dim service As ServiceController Dim blnHasSmtpService As Boolean = False For Each service In Services If service.ServiceName.ToLower = "smtpsvc" Then blnHasSmtpService = True Exit For End If Next If Not service.Status = ServiceControllerStatus.Running Then Me.Label5.Text = "SMTP Service not currently running. " & _"Starting service..." Try service.Start() Catch End Try
و الثاني) بعث Email
send to the others
Dim sb As New StringBuilder
'sb.Append("The following email was sent to you from the Send Mail How-To " & _
' "sample application:")
'sb.Append(vbCrLf)
'sb.Append(vbCrLf)
'sb.Append("SUBJECT: ")
'sb.Append(Trim(Me.TextBox2.Text))
'sb.Append(vbCrLf)
'sb.Append(vbCrLf)
'sb.Append("MESSAGE: ")
'sb.Append(Trim(Me.TextBox3.Text))
'sb.Append(vbCrLf)
'Dim mailMsg As New MailMessage
'With mailMsg
' '.From = txtFrom.Text.Trim
' .To = Me.TextBox1.Text.Trim
' '.Cc = txtCC.Text.Trim
' '.Bcc = txtBCC.Text.Trim
' .Subject = Me.TextBox2.Text.Trim
' .Body = sb.ToString
' '.Priority = CType(cboPriority.SelectedIndex, MailPriority)
Dim mailAttachment As Object
mailAttachment = New MailAttachment(Server.MapPath(" \ AlumnusClub \ Slides \ ") & Me.TextBox5.Text, MailEncoding.UUEncode)
mailmsg.Attachments.Add(mailAttachment)
End If
End With
SmtpMail.Send(mailMsg)لم افهم ارجو المساعدة
