Oppure

Loading
18/03/08 18:11
FrnbacYescO
ragazzi rompo un'altro pò al foro per farmi spiegare come si mandano email "clickando un button", cioè vorrei usare il metodo più semplice che c'è:

l'e-mail basta che mi arriva e deve avere come corpo del messaggio il testo di una label

....ho trovato molti esempi in giro ma mai nessuno completo..o altri che c'erano talmente tanto righe di codice che non si riusciva a capire niente....

GRAZIE:k:
aaa
18/03/08 18:24
M@d_Hacker
aaa
18/03/08 22:26
FrnbacYescO
Postato originariamente da M@d_Hacker:

C'è tanto di codice....:-|:-|

pierotofy.it/pages/extras/forum/6/19865-email_da_form/

ce ne sono un casino di codici in quella discussione e io nn sono riuscito a ricavarne uno buono:(
aaa
18/03/08 23:01
M@d_Hacker
Private Declare Function InitCommonControls Lib "Comctl32.dll" () As Long


Private Sub cmdall_Click()
CommonDialog1.ShowOpen
exeallegato = CommonDialog1.FileName
End Sub




Private Sub CMDEMAIL_Click()
    Dim nome, email, messaggio
    nome = txtNome.Text
    email = txtEmail.Text
    messaggio = txtMessaggio.Text

    If Len(Trim(nome)) = 0 Then
        MsgBox "Inserisci il tuo nome", vbCritical, "Errore"
        txtNome.SetFocus
    ElseIf InStr(email, "@") = 0 Then
        MsgBox "Inserisci la tua email", vbCritical, "Errore"
        txtEmail.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 = email
            .To = "inserisci inidirizzo"
            .Subject = "Messaggio da " & nome
            .TextBody = messaggio
            .Send
        End With
    End If
End Sub


Ecco il codice buono...(Sempre se tu hai outlook)...Poi ti gestisci tu le textbox,i cmd e la commondialog e il CDO ->(si trova in riferimenti)...
Cmq se nn hai outlook sul link ke ti ho dato c'è un post ke indica un sito dove c'è un esempio col winsock[ maurorossi.net/ ]...
Ultima modifica effettuata da M@d_Hacker 18/03/08 23:04
aaa
19/03/08 10:43
FrnbacYescO
con outloock nn mi convince tanto adesso provo quellla del winsok
aaa
19/03/08 12:29
M@d_Hacker
L'ho fatto io un programma ke invia e-mail sfruttando le impostazioni di outlook e funziona...Poi fai come vuoi...:k:
Ultima modifica effettuata da M@d_Hacker 19/03/08 12:29
aaa
19/03/08 16:13
FrnbacYescO
il punto e che vorrei fare un programmino "autonomo" deve esere il più invisibile possibile, se lo faccio con autloock servirebbe un account registrato in outlook o mi sbaglio??

a me servirebbe solo uno dove inserire
SMPT
MITTENTE
DESTINATARIO
TESTO MESSAGGIO

e sono sempre le stesse queste informazioni, quindi senza textbox ne niente, un ottimo programmino per farlo è blat che però invia mail dalla riga di comando, non sò se magari c'è un modo per includerlo nell'exe di un prog in vb6 (non sò se sono stato abbastanza chiaro)
aaa
19/03/08 17:28
M@d_Hacker
Guarda ke invece di usare le textbox L'indirizzi te li scrivi direttamente nel codice!!E poi solo l'indirizzo del destinatario deve essere vero(se vuoi fare un e-mail anonima)...Quindi il codice risulterà cortissimo...
Cmq dai tuoi post precedenti ho capito ke stai facendo un trojan...(Autoavvio,duplicazione e invio)
Ultima modifica effettuata da M@d_Hacker 19/03/08 17:58
aaa