ممكن كود لارسال رسائل الى بريد الكترونى

اولا اضف اداة Winsock

Option Explicit

Dim sRes As String


Private Sub Command1_Click()
Winsock1.RemotePort = 25
Winsock1.RemoteHost = "mx4.mail.yahoo.com" 'عنوان خادم البريد الالكترونى لمستقبل الرسالة


Winsock1.Connect


Do Until Winsock1.State = 7 '7=connected
    DoEvents
Loop
Do Until sRes = "220"
    DoEvents
Loop

sRes = "0"
Winsock1.SendData "HELO SMTPMail" + vbCrLf
Do Until sRes = "250"
    DoEvents
Loop

sRes = "0"
Winsock1.SendData "MAIL from: " & "<Someone@Server.com>" & vbCrLf 'عنوان مرسل الرسالة
Do Until sRes = "250"
    DoEvents
Loop
    
sRes = "0"
Winsock1.SendData "RCPT TO: " & "<Someone@Server.com>" & vbCrLf  'عنوان المرسل اليه
Do Until sRes = "250"
    DoEvents
Loop

sRes = "0"
Winsock1.SendData "DATA" & vbCrLf
Do Until sRes = "354"
    DoEvents
Loop

sRes = "0"
Winsock1.SendData "FROM: " & "اسم الراسل" & vbCrLf
Winsock1.SendData "SUBJECT: " & "عنوان الرسالة" & vbCrLf
Winsock1.SendData Text1.Text & vbCrLf & "." & vbCrLf
Do Until sRes = "250"
    DoEvents
Loop

sRes = "0"
Winsock1.SendData "QUIT" & vbCrLf
Do Until sRes = "221"
    DoEvents
Loop

Winsock1.Close
MsgBox "sent"
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String
Winsock1.GetData Data
sRes = Left$(Data, 3)
End Sub

مشكوور حبيبي ولكن هذا كود ال button

وكيف اضفWinsock

من قائمة project اختر components ثم اختر microsoft winscok control

اريدك ان تضيف اميلى يا اخ Voodoo

لكى اتكلم معك

ahmedelbasha760@hotmail.com

أخى الفاضل

هذا كود أخر يفتح برنامج البريد الألكترونى و للتجربه اعمل فورم و من المشروع - المكونات اضف Microsoft Mapi control6.0 واضف الأداتين التان يظهرا على شريط الأدوات

Private Sub Command1_Click()
   With MAPISession1
       .UserName = "Amit"  'Your Profile Name
       .DownLoadMail = False
       .NewSession = True
       .SignOn
   End With

       With MAPIMessages1
           .SessionID = MAPISession1.SessionID
           .Compose
           .AddressResolveUI = True
           .RecipDisplayName = "ahrambc@hotmail.com" 'Receipent's Email Address
           .ResolveName
           .MsgSubject = "DownLoads" 'Subject of Mail
           .MsgNoteText = "Attaching File" 'Message to Send
           If MsgBox("Do u want To Send Mail... ?? ", vbYesNo + vbQuestion, "Confirm Send") = vbYes Then
               If Check1.Value = 1 Then
                   .Send (True)
               Else
                   .Send
               End If
           End If
       End With
   MAPISession1.Action = mapSignOff
End Sub