Want to send a email

[rummyvb]

1. How to send email. Suppose my email address is [email protected] and I want to send a email by using this address. How I can do it?

2. How to auto compleate a combo box. I use VB 6.0

[rummyvb]

1. How to send email. Suppose my email address is [email protected] and I want to send a email by using this address. How I can do it?

2. How to auto compleate a combo box. I use VB 6.0

[rummyvb]

1. How to send email. Suppose my email address is [email protected] and I want to send a email by using this address. How I can do it?

2. How to auto compleate a combo box. I use VB 6.0

[RobDog888]

You want to send the email using? Outlook, CDO, SMTP?

Here is a function I found and modified for autocomplete for a
combo box. Just pass the combo box and the keyascii in the
keypress event of the combo.

'USE
Private Sub cboProject_KeyPress(KeyAscii As Integer)
'<RR 08/08/03 - VB/OUTLOOK GURU>
    KeyAscii = AutoFind(cboProject, KeyAscii, False)
    
End Sub
 
'FUNCTION
Public Function AutoFind(ByRef cboCtl As ComboBox, ByVal KeyAscii As Integer, Optional ByVal LimitToList As Boolean = False)
'<RR 08/08/03 - VB/OUTLOOK GURU>
    On Error GoTo No_Bugs
    
    Dim lCB As Long
    Dim sFindString As String
    
    If KeyAscii = 8 Then
        If cboCtl.SelStart <= 1 Then
            cboCtl = ""
            AutoFind = 0
            Exit Function
        End If
        If cboCtl.SelLength = 0 Then
            sFindString = UCase(Left(cboCtl, Len(cboCtl) - 1))
        Else
            sFindString = Left$(cboCtl.Text, cboCtl.SelStart - 1)
        End If
    ElseIf KeyAscii < 32 Or KeyAscii > 127 Then
        Exit Function
    Else
        If cboCtl.SelLength = 0 Then
            sFindString = UCase(cboCtl.Text & Chr$(KeyAscii))
        Else
            sFindString = Left$(cboCtl.Text, cboCtl.SelStart) & Chr$(KeyAscii)
        End If
    End If
    lCB = SendMessageStr(cboCtl.hwnd, CB_FINDSTRING, -1, ByVal sFindString)
 
    If lCB <> (-1) Then
        cboCtl.ListIndex = lCB
        cboCtl.SelStart = Len(sFindString)
        cboCtl.SelLength = Len(cboCtl.Text) - cboCtl.SelStart
        AutoFind = 0
    Else
        If LimitToList = True Then
            AutoFind = 0
        Else
            AutoFind = KeyAscii
        End If
    End If
    Exit Function
    
No_Bugs:
 
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbExclamation, App.ProductName
    
End Function

[Memnoch1207]

1. open Outlook or Outlook express and type in your email address in the from field...then hit send...

2. Do a search on google.

I can't believe people actually ask such stupid questions.

[manavo11]

There is no point posting the same question in all the forums...

[RLFX]

Maybe if you answer the guy he will be out of your hair ?

[zak2zak]

May Be This Will Ease His Mind?

Public Declare Function ShellExecute Lib "shell32.dll" Alias _
    "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
    ByVal lpFile As String, ByVal lpParameters As String, _
    ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub cmdSend_Click()
    ShellExecute hwnd, _
        "open", _
        "mailto:[email protected]" & _
        "[email protected]" & _
        "&[email protected]" & _
        "&subject=Yummy Tummy For U'r Tummy" & _
        "&body=" & Replace("Delight & Desert", vbCrLf, _
            "%0D%0A"), _
        vbNullString, vbNullString, _
        SW_SHOW
End Sub

[NotLKH]

Originally posted by RLFX
Maybe if you answer the guy he will be out of your hair ?

Not so simple. He's obviously not interested in answers, as seen by the following, where each set was posted within minutes of each other:

could you please help me?
http://www.vbforums.com/showthread....threadid=259470
http://www.vbforums.com/showthread....threadid=259469
http://www.vbforums.com/showthread....threadid=259468


ado problem
http://www.vbforums.com/showthread....threadid=259975
http://www.vbforums.com/showthread....threadid=259974
http://www.vbforums.com/showthread....threadid=259973

ToDay
internet problem
http://www.vbforums.com/showthread....threadid=261875
http://www.vbforums.com/showthread....threadid=261876

I think an explanation from him is wll past due.