Visual Basic 6 - email da form

09/07/07 8:54

ciao volevo sapere dove posso trovare un esempio sorgente o se qualcuno mi puo postare il codice di come posso far mandare una mail a me da un form preimpostato.

quindi un campo
tua mail
e un campo
messaggio

grazie mille

aaa

09/07/07 19:09

c.ronaldo

Se nn sbaglio su maurorossi.net c'è qualcosa :k:

aaa

05/02/08 14:43

mad hacker

come posso creare un progrmma per inviare e-mail anke con piccoli allegati? :-?

grazie

aaa

05/02/08 19:40

GrG

ci dovrebbe essere sempre 1 esempio su MauoRossi.net

aaa

05/02/08 20:11

mad hacker

grazie

aaa

06/02/08 17:57

moet

Inserisci una commondialog al progetto


Option Explicit
Dim nome As String
Public messaggio As String
Dim oggetto As String
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long


Private Sub cmdemail_Click() 'pulsante invia

 
    
    nome = txtNome.Text
    messaggio = txtmessaggio.Text
    oggetto = txtoggetto.Text
    
    If Len(Trim(nome)) = 0 Then
        MsgBox "Inserisci la mail del destinatario", vbCritical, "Errore"
        txtNome.SetFocus
    ElseIf InStr(nome, "@") = 0 Then
        MsgBox "Inseriscila corretta!", vbCritical, "Errore"
        txtNome.SetFocus
    ElseIf Len(Trim(messaggio)) = 0 Then
        MsgBox "Inserisci il messaggio", vbCritical, "Errore"
        txtmessaggio.SetFocus
    Else
        Dim CDO As New CDO.Message
        With CDO
            .From = "tuamail@tua.com"
            .To = nome
            .Subject = oggetto
            .TextBody = messaggio
            .AddAttachment (txtallegato.Text)
            .Send
        End With
        MsgBox "E-mail inviata con successo!!!", , "INVIO E-MAIL..."
        
        txtNome.Text = ""
        txtmessaggio.Text = ""
        txtoggetto.Text = ""
        txtallegato.Text = ""
        frmemail.Hide
    End If


End Sub



Private Sub Label4_Click()  ' inserisce l' allegato
CommonDialog1.ShowOpen
txtallegato.Text = CommonDialog1.filename
End Sub

aaa

07/02/08 17:19

mad hacker

un ultimo favore...
mi protesti compilare i codici ke mi hai appeno scritto con informazione vere...in senso già fatta come se tu la dovessi inviare!!! :rotfl: