Hej!
Vill gärna ha en mailform på min sida, då avsändaren bara klickar på submit och jag får svaren direkt i min mailbox, utan att de poppar upp en outlook form.. hur gör ja? nån som vet något som kan hjälpa mig? skulle va tacksamt..
php: PHP Version 4.4.1
asp: ASP 3.0 objects, VBScript 5.5, and JScript 5.5.
är de som står..
de jag försöker göra är en mailform som man fyller i och skickar och den kommer till min inbox i outlook direkt. Utan att avsändaren ska behöva ha en mailklient på sin dator..
försöker leta mig fram på olika ställen, men de ja hittar är mailformen som man länkar till, ja vill ha min på sidan och inte behöva skicka ex: kunder till andra sidor för fylla i formulärer..
Sub Maila()
' send by connecting to port 25 of the SMTP server
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Dim strSmartHost
Dim obj
Const cdoSendUsingPort = 2
StrSmartHost = "minmailserver_antingen_ip_eller_namn"
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' set the CDOSYS configuration fields to use port 25 on the SMTP server
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmartHost
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = Basic
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mittanvändarnamnpåmailservern"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mittmailkontoslösenord"
.Update
End With
' build for message body
sBody = ""
For Each field In Request.Form
sBody = sBody & field & ": " & Request.Form(field) & Chr(13) & Chr(10)
Next
' apply the settings to the message
With iMsg
Set .Configuration = iConf
.To = "vemskajagskickatill"
.Cc = "vemskafåenkopia"
.From = "avsändarmailadress"
.Subject = "ämnesraden"
.TextBody = sBody
.Send
End With
' cleanup of variables
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
End Sub
Hoppas det hjälper dig.
Det finns säkert många som skriker nu.. Men koden kan du anpassa efter dina önskemål.
hej!
tack för snabbt svar, är väldigt dåligt på sånt här, hur eller vart lägger jag in koden? mitt i sidan där den skall ligga eller? förstår inte riktigt, är så ny på asp, php m.m..