email without the using of Outlook objects

Dear VB users,

Is there any possibility to send an email without using the outlook objects?
If yes, can someone give source code.

Nice regards,

Michelle.

Do a forum search for MAPI.

Add MAPI Control to your form then:

VB Code:

'*******************************************************************************
' SENDMESSAGETHRUEXPRESS (SUB)
'
' DESCRIPTION:
' ACTUALLY SEND THE EMAIL MESSAGE THRU EXPRESS
'*******************************************************************************
 
Sub SENDMESSAGETHRUEXPRESS(DisplayMsg As Boolean, Optional AttachmentPath)
    
    MAPISession1.SignOn
    
    With Me.MAPIMessages1
        
        .SessionID = MAPISession1.SessionID
        
        .MsgIndex = -1
        
        .Compose
        
        .MsgSubject = Me.txtSubject
        
        .RecipType = mapToList
        
        .RecipDisplayName = Me.txtAddressTO
        
        .RecipAddress = Me.txtAddressTO
        
        ' SHOW THE ADDRESS BOOK WITH THE SELECTED RECIPIENT(S)
        
        ' 0=NO EDIT FIELDS, 1=TO, 2=(TO AND CC), 3=(TO, CC AND BLIND CC),
        ' 4=ONLY THOSE SUPPORTED BY MESSAGING SYSTEM WILL BE SHOWN
        
        .AddressEditFieldCount = 1
        
        .MsgNoteText = Me.txtMsg
        
        ' ADD ATTACHMENT FILE IF THE LABEL CONTAINS A SELECTED FILE
        
        If Len(Me.lblAttachment.Caption) > 0 And Me.lblAttachment.Caption > " " Then
            
            .AttachmentPosition = 0
            
            .AttachmentName = lblAttachment
            
            .AttachmentPathName = lblAttachment
            
            .AttachmentType = mapEOLE
            
        End If
        
        ' SEND THE EMAIL
        
        .Send
        
    End With
    
    MAPISession1.SignOff
    
End Sub

put these objects on your form:
a textbox for the from emails address ( can be left out, but edit the code to say who it is from)
a textbox for the main body of the message (can be edited just like above.
a command button called cmdsend
a command button called cmdexit
a label called lblstatus
a winsock control called Winsock1
a timer control called Timer1

VB Code:

Private Sub cmdSend_Click()
Subject = 'the subject here
'FILL UP OUR EMAIL STRUCTURE
With Myemail
    .From = 'the from email address here
    .Subject = Subject
    .To = myemailaddress
    .Msg = 'The Main body of message here
End With
 
'NOW WE SEND IT
    cmdSend.Enabled = False
    lblStatus.Caption = "Connecting..."
    Winsock1.Connect Myemail.SMTP, "25"     'Connect to server
    
End Sub
 
Private Sub Form_Load()
 
myappname = 'the application name here
 
myemailaddress = 'The Email address to send to here
 
With Myemail
    .Format = "plain;"
    .SMTP = "mail.hotmail.com" ' you might want to find a different server, this is the only one i can find, but it can only send to hotmail addresses.
End With
 
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    If Not Number = sckSuccess Then
        MsgBox Description          'Display error
        Timer1.Enabled = False
        CloseConn True
    End If
End Sub
 
 
 
Private Sub Winsock1_DataArrival _
(ByVal bytesTotal As Long)
    Dim data As String
    Winsock1.GetData data, vbString
    'Add data arrived data to the already arrived data
    inData = inData + data
    'Wait till a line is recieved (with CR LF in the end)
    If StrComp(Right$(inData, 2), vbCrLf) = 0 Then DataAvailable = True
End Sub
Private Sub Winsock1_Connect()
    lblStatus.Caption = "Connected"
    timer = 0
    Timer1.Enabled = True
    While Not DataAvailable         'Wait for reply
        If Winsock1.State = sckClosed Then Exit Sub
        DoEvents
    Wend
    Timer1.Enabled = False
    
    Dim reply As String
    Dim tmp() As String
    reply = inData
    inData = ""
    DataAvailable = False
    tmp = Split(reply, " ")
    If Not Val(tmp(0)) = 220 Then           'Error occured
        MsgBox "Server returned the following error:" + vbCrLf + reply
        CloseConn False
        Exit Sub
    End If
    lblStatus.Caption = "Receiving Welcome Message"
    'Start the process
    Winsock1.SendData "HELO " + Winsock1.LocalHostName + vbCrLf
    DoEvents
    timer = 0
    Timer1.Enabled = True
    While Not DataAvailable         'Wait for reply
        If Winsock1.State = sckClosed Then Exit Sub
        DoEvents
    Wend
    Timer1.Enabled = False
    reply = inData
    inData = ""
    DataAvailable = False
    tmp = Split(reply, " ")
    If Not Val(tmp(0)) = 250 Then
        MsgBox "Server returned the following error:" + vbCrLf + reply
        CloseConn False
        Exit Sub
    End If
    'Send MAIL FROM
    Winsock1.SendData "MAIL FROM:<" + Myemail.From + ">" + vbCrLf
    DoEvents
    timer = 0
    Timer1.Enabled = True
    While Not DataAvailable         'Wait for reply
        If Winsock1.State = sckClosed Then Exit Sub
        DoEvents
    Wend
    Timer1.Enabled = False
    reply = inData
    inData = ""
    DataAvailable = False
    tmp = Split(reply, " ")
    If Not Val(tmp(0)) = 250 Then
        MsgBox "Server returned the following error:" + vbCrLf + reply
        CloseConn True
        Exit Sub
    End If
    'Send RCPT TO
    Winsock1.SendData "RCPT TO:<" + Myemail.To + ">" + vbCrLf
    DoEvents
    timer = 0
    Timer1.Enabled = True
    While Not DataAvailable         'Wait for reply
        If Winsock1.State = sckClosed Then Exit Sub
        DoEvents
    Wend
    Timer1.Enabled = False
    reply = inData
    inData = ""
    DataAvailable = False
    tmp = Split(reply, " ")
    If Not Val(tmp(0)) = 250 Then
        MsgBox "Server returned the following error:" + vbCrLf + reply
        CloseConn True
        Exit Sub
    End If
    'Send DATA
    DoEvents
    Winsock1.SendData "DATA" + vbCrLf
    DoEvents
    timer = 0
    Timer1.Enabled = True
    While Not DataAvailable         'Wait for reply
        If Winsock1.State = sckClosed Then Exit Sub
        DoEvents
    Wend
    Timer1.Enabled = False
    reply = inData
    inData = ""
    DataAvailable = False
    tmp = Split(reply, " ")
    If Not Val(tmp(0)) = 354 Then
        MsgBox "Server returned the following error:" + vbCrLf + reply
        CloseConn False
        Exit Sub
    End If
    lblStatus.Caption = "Sending Mail . . ."
    
    
    'Send the E-Mail
    Winsock1.SendData "From: <" + Myemail.From + ">" + vbCrLf + _
                      "To: " + Myemail.To + vbCrLf + _
                      "Subject: " + Myemail.Subject + vbCrLf + _
                      "X-Mailer: Gmcd'sBugReport V1" + vbCrLf + _
                      "Mime-Version: 1.0" + vbCrLf + _
                      "Content-Type: text/" + Myemail.Format + vbTab + "charset=us-ascii" + vbCrLf + vbCrLf + _
                      txtMessage.Text
    Winsock1.SendData vbCrLf + "." + vbCrLf
    
    
    DoEvents
    timer = 0
    Timer1.Enabled = True
    While Not DataAvailable             'Wait for reply
        If Winsock1.State = sckClosed Then Exit Sub
        DoEvents
    Wend
    Timer1.Enabled = False
    reply = inData
    inData = ""
    DataAvailable = False
    tmp = Split(reply, " ")
    If Not Val(tmp(0)) = 250 Then               'Error occured
        MsgBox "Server returned the following error:" + vbCrLf + reply
        CloseConn False
        Exit Sub
    End If
    Winsock1.SendData "QUIT"
    MsgBox "Report Sent Successfully", vbInformation, "Done"
    CloseConn False
End Sub
 
Private Sub Timer1_Timer()
    timer = timer + 1
    If timer = TIME_OUT Then
        CloseConn True              'Disconnect if timed out
        MsgBox "Could not connect to host " + Myemail.SMTP + vbCrLf + "Operation timed out"
        Timer1.Enabled = False
    End If
End Sub
Private Sub CloseConn(Err As Boolean)
'Close Connection & enable contrls
    Winsock1.Close
    lblStatus.Caption = "Send"
    cmdSend.Enabled = True
End Sub

What is Myemail?

wat type of object MyEmail is???

It's probably a UDT with all the properties of an e-mail message.

You could also use OSSMTP.dll.

http://www.ostrosoft.com/smtp_component.asp

do a search for CDONTS ... the easiest ...