help me, how to create an email with VB.

Question

pito_donje

7 Years Ago

how do I create an email with VB? when we click the button, type in all the data we sent to the email address we are headed

visual-basic-6

4 Contributors
12 Replies
18 Views
7 Years Discussion Span
Latest Post 4 Years Ago by razamughal67

debasisdas 580 · Answer 1 · 2011-04-19T09:57:03+00:00

please the following links

link1
link2
link3
link4

pito_donje · Answer 2 · 2011-04-19T10:26:15+00:00

what else can I if I do not have VB CDO 1:21 Library?

debasisdas 580 · Answer 3 · 2011-04-19T10:31:21+00:00

I do not have VB CDO 1:21 Library?

What do you mean by that ?

Try using MAPI controls.

pito_donje · Answer 4 · 2011-04-19T10:39:30+00:00

objRecipient.Type = mapiTo
objRecipient.Resolve

there is an error in mapito

debasisdas 580 · Answer 5 · 2011-04-19T10:46:46+00:00

debasisdas 580

7 Years Ago

post your complete code .

read more here.

Edited 7 Years Ago by debasisdas: n/a

Jx_Man 987 · Answer 6 · 2011-04-19T10:53:02+00:00

Add reference : Microsoft CDO For Windows 2000 Library
5 textboxes, 1 button
Try This :

Private Sub Command1_Click()
    
    On Error GoTo ErrHandler
    
    Dim oConfig As New CDO.Configuration
    Dim oMsg As New CDO.Message
    
    Label1.Caption = ""
    
    With oConfig.Fields
       .Item(cdoSendUsingMethod) = cdoSendUsingPort
       .Item(cdoSMTPServerPort) = 465
       .Item(cdoSMTPServer) = "smtp.mail.yahoo.com"
       .Item(cdoSMTPAuthenticate) = cdoBasic
       .Item(cdoSendUserName) = txtSender.Text
       .Item(cdoSendPassword) = txtPassword.Text
       .Item(cdoSendEmailAddress) = txtSender.Text
       .Item(cdoSMTPUseSSL) = 1
       .Update
    End With
    
    With oMsg
       .Configuration = oConfig
       .Subject = txtSubject.Text
       .To = txtAddress.Text
       .From = txtSender.Text
       .HTMLBody = txtMessage.Text
       .Send
    End With
    
    Set oMsg = Nothing
    Set oConfig = Nothing
    
    Label1.Caption = "Email Sent"
    Exit Sub

ErrHandler:

    MsgBox Err.Description, vbCritical, "Error"

End Sub

Jx_Man 987 · Answer 7 · 2011-04-19T10:53:18+00:00

Add reference : Microsoft CDO For Windows 2000 Library
5 textboxes, 1 button
Try This :

Private Sub Command1_Click()
    
    On Error GoTo ErrHandler
    
    Dim oConfig As New CDO.Configuration
    Dim oMsg As New CDO.Message
    
    Label1.Caption = ""
    
    With oConfig.Fields
       .Item(cdoSendUsingMethod) = cdoSendUsingPort
       .Item(cdoSMTPServerPort) = 465
       .Item(cdoSMTPServer) = "smtp.mail.yahoo.com"
       .Item(cdoSMTPAuthenticate) = cdoBasic
       .Item(cdoSendUserName) = txtSender.Text
       .Item(cdoSendPassword) = txtPassword.Text
       .Item(cdoSendEmailAddress) = txtSender.Text
       .Item(cdoSMTPUseSSL) = 1
       .Update
    End With
    
    With oMsg
       .Configuration = oConfig
       .Subject = txtSubject.Text
       .To = txtAddress.Text
       .From = txtSender.Text
       .HTMLBody = txtMessage.Text
       .Send
    End With
    
    Set oMsg = Nothing
    Set oConfig = Nothing
    
    Label1.Caption = "Email Sent"
    Exit Sub

ErrHandler:

    MsgBox Err.Description, vbCritical, "Error"

End Sub

pito_donje · Answer 8 · 2011-04-20T10:30:12+00:00

when I run this program there is a mistake that gave the role like this. Could not save this message to be sent to the smtp.server. The transport error code was 0x80040217 The server response