Questo topic e' stato chiuso dal moderatore.
02/04/15 19:41
mikiprogrammer
Uso questo codice per inviare e-mail al mio indirizzo per riportare le bug:
Dim nome, email, messaggio
nome = TextBox2.Text
email = TextBox1.Text
messaggio = TextBox3.Text
If Len(Trim(nome)) = 0 Then
MsgBox("Inserisci l'oggetto", vbCritical, "Errore"
TextBox2.Focus()
ElseIf InStr(email, "@"
= 0 Then
MsgBox("Inserisci la tua email", vbCritical, "Errore"
TextBox1.Focus()
ElseIf Len(Trim(messaggio)) = 0 Then
MsgBox("Inserisci il messaggio", vbCritical, "Errore"
messaggio.SetFocus()
Else
Dim cdo As New CDO.Message
With cdo
.From = email
.To = "email@esempio.com" ' QUI LA TUA EMAIL
.Subject = "Messaggio da " & nome
.TextBody = messaggio
.Send()
End With
Quando avvio il debug mi da l'errore: Il valore di configurazione "SendUsing" non è valido.
Sono disperato, qualcuno può aiutarmi?
Ultima modifica effettuata da mikiprogrammer 03/04/15 9:37
aaa
06/04/15 11:18
mikiprogrammer
[script type = "text/javascript"]
history.go(-1)
[/script]
Ultima modifica effettuata da mikiprogrammer 06/04/15 11:19
aaa