Trykke på kanpp å den sender mail!

[Gjest Medlem-42829]

Hei igjen

 

Hvordan kan jeg lage ett lite skjema så kan folket fylle ut så trykker de feks "Send" så sender de mail til meg? vet noen det?

[aadnk]

Det finnes flere måter å gjøre dette på. Den enkleste måten er å bruke CDO, som forklart på denne siden. Koden er beregnt på ASP, men vil også fungere i VB. Fjern <% og %> før du legger den inn, og husk deklareringen av variablene (Dim) hvis du har Option Explicit på.

 

Hvis du ikke vil kreve at brukerene av programmet ditt må ha installert Outlook, kan du bruke denne CLASS modulen. Legg den inn i prosjektet ditt, sammen med en Winsock kontroll (CTRL+T og sett elementet Microsoft Winsock Control 6.0 på i listen), og bruk denne koden for å sende emailen:

 

Dim SMTP As New clsSMTP, MailText As String

SMTP.Winsock = WinSMTP

MailText = "Dette er en test" & vbCrLf & "Her kommer neste linje"

With SMTP
   .Port = 25 ' SMTP bruker port 25
   .Server = "mail.online.no" ' Erstatt med den serveren emailaddressen din ligger på.
   .MailFrom = "[email protected]" ' Avsender-addresse
   .MailTo = "[email protected]" ' Mottaker
   .Subject = "Testmail" ' Emne
   .NameFrom = txtName.Text ' Avsendernavn
   .NameTo = .MailFrom ' Mottakernavn, trenger ikke være avsender-addressen.
   .Body = MailText ' Emailens innhold.

   If .SendMail = 0 Then
       MsgBox "Email sent", vbInformation, "Success!"
   Else
       MsgBox "Error sending email", vbCritical, "Error!"
       Exit Sub
   End If

End With

 

Håper dette hjalp.

Endret 16. juli 2004 av aadnk

[Gjest Medlem-42829]

Tnx m8 :=)

 

 

Selfølgelig hjelper alt du sier