Een mail sturen vanuit vb6

[satriano17]

dag
Mat deze code heb ik geprobeerde een mail te sturen vanuit vb6
Ik krijg error 2147220973 en geen mail !
Waar zit het foutje volgens jullie?
(Mijn enige twijfel is een verkeerd ipadres)
ik heb op het form enkel een commandbutton met deze code

Private Sub Command1_Click()
Dim Email
   Set Email = CreateObject("cdo.message")
   
   Foutje = 0
   On Error GoTo Foutje2
   
   With Email
      .To = "xxxxxxxxxxxxxxxx@outlook.com"       'Emailadres waar de mail heen moet
      .Subject = "test"  'Onderwerp van de mail
      .From = "xxxxx@telenet.be"     'Jou Email adress
      .TextBody = "Hello" 'De tekst die in de mail moet komen

'hier moet je het ipadres invullen van de smtp server van je provider !!!!!


      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.1.1"
      .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      .Configuration.Fields.Update

      '.AddAttachment "c:\temp\bestand.ext" 'als je nog een bestand mee wilt sturen.

      .Send
      
      If Foutje = 0 Then
         test = MsgBox("De mail is correct verstuurd.", vbInformation, vbOKOnly)
      End If
      
   End With
   
   Set Email = Nothing

Exit Sub

Foutje2:

   Foutje = Err.Number
   Select Case Foutje
   
      Case -2147220973
         test = MsgBox("Kan geen verbinding maken met de mailserver." & vbCr & "Foutnummer: -2147220973", vbCritical, vbOKOnly)
      Case -2147220975
         test = MsgBox("Onverwacht of verkeerd antwoord van de mailserver." & vbCr & "Foutnummer: -2147220975", vbCritical, vbOKOnly)
      Case -2147220977
         test = MsgBox("Mailadres bestaat niet." & vbCr & "Foutnummer: -2147220977", vbCritical, vbOKOnly)
      Case Else
         test = MsgBox("Onbekende fout opgetreden." & vbCr & "Foutnummer: " & Str(Foutje), vbOKOnly)
   End Select
   
   Resume Next

End Sub

dank u
satriano

 

[satriano17]

Ik heb zelf opgelost.
Moest zo:

.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "uit.telenet.be"

toch bedankt !
satriano

 

[buick]

Klopt
192.168.1.1 is je eigen interne IP adres.

 

[satriano17]

dank u Buick.
Ik heb een twijfel/vraag:
Als mijn code op een ander computer en ander locatie (dus ook ander netwerk) wordt uitgevoerd
zou nog een mail sturen met een zo (mijn) IP-adres?
Ik hoop dat mijn vraag duidelijk is.

dank u

 

[buick]

Als je mail wilt versturen (en eigenlijk maakt het niet uit of dat via VB of een willekeurig mailprogramma gaat), moet je altijd de mailserver gebruiken van de provider.
Dus heb je thuis bijvoorbeeld xs4all, dan moet je daarvan de mailserver gebruiken. Maar als je op een andere lokatie bent waar men bijvoorbeeld UPC heeft, dan zul je daar dus de mailserver van UPC moeten gebruiken.
Er is niet echt één server die voor alles werkt.
Ik denk dan ook dat je in je programma een optie moet maken waarbij men de mailserver ingeeft, bijvoorbeeld door de mailserver in een variabele te zetten.

 

[satriano17]

Ah, zo...
Mijn echt doel is:
Ik steek een variabel tekstbody in de routine met "Hello"
Ik steek mijn routine in een programma.
Ik geef die programma aan andere mensen
hier, daar, in het buitenland..overal

Als een van die mensen het programma draait en de routine wordt uitgevoerd
zal automatisch een bericht naar mij komen met, bv. "HELLO"
(dus zonder dat die mensen een provider moeten invoeren)

Dus zal niet gaan..;
Of bestaat een andere universele formule?
dank u
satriano