Visual Basic!

[kame]

Vreau ca sa trimit pe yahoo mail ce imi arata pe label1.caption!Se poate?

am incercat multe variante pe net dar nu prea a mers

[#Include.ClasS]

Multa lume renunta la Google , si aleg varianta sa astepte si o saptamana dupa raspuns , oare dc ?

Put a label on your form named label1 and change the label caption to : Compose Mail --- or what ever you wish.

Option Explicit
Private 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 label1_Click()
 With label1
 .Drag vbBeginDrag
End With
End Sub

Private Sub label1_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is label1 Then
        With label1
    Call ShellExecute(0&, vbNullString, "Mailto:" & .Caption, vbNullString, vbNullString, vbNormalFocus)
    End With
    End If
End Sub

Si am mai gasit o varianta ( Use CDO)

1. Open a new project in Visual Basic.

2. On the Tools menu, choose References and select the Microsoft CDO 1.21 Library.

3. Add a CommandButton object to the default form. Accept the default name, Command1.

4. Copy the following code into the General Declarations section of the default form. Option Explicit

     Private Sub Command1_Click()
       Dim objSession As Object
       Dim objMessage As Object
       Dim objRecipient As Object

       'Create the Session Object.
       Set objSession = CreateObject("mapi.session")

       'Logon using the session object.
       'Specify a valid profile name if you want to.
       'Avoid the logon dialog box.
       objSession.Logon profileName:="MS Exchange Settings"

       'Add a new message object to the OutBox.
       Set objMessage = objSession.Outbox.Messages.Add

       'Set the properties of the message object.
       objMessage.subject = "This is a test."
       objMessage.Text = "This is the message text."

       'Add a recipient object to the objMessage.Recipients collection.
       Set objRecipient = objMessage.Recipients.Add

       'Set the properties of the recipient object.
       objRecipient.Name = "John Doe"  '<---Replace this with a valid
                                       'display name or e-mail alias
       'Type can be ActMsgTo, mapiTo, or CdoTo for different CDO versions;
       'they all have a constant value of 1.
       objRecipient.Type = mapiTo
       objRecipient.Resolve

       'Send the message.
       objMessage.Send showDialog:=False
       MsgBox "Message sent successfully!"

       'Logoff using the session object.
       objSession.Logoff
     End SuB

[kame]

nu merge ca eu am Microsoft Library 2000.Si de o saptamana tot incerc in plm~X(Si nu stiu ce are.Si nu gasesc nicaieri!