Hej Jag har problem med att skicka epost. Jag har försökt med cdonts men där får jag felmeddelande att :error: Run-time error -2147220973(80040213)
Trasnsporten lyckades inte ansluta till servern

Jag har också försökt att Skicka ett e-mail med MSWINSCK.OCX
och får då felmedelandet : Argument not optional på Second, i suben SendEmail

Kan någon hjälpa mig att lösa detta så vore jag tacksam
MVH Mattias

Hur ser koden ut som du använder? (Dvs. SendEmail suben)

Det är taget från tips & tricks
den ser ut så här med MSWINSCK.OCX:

Sub SendEmail(MailServerName As String, FromName As String, _
FromEmailAddress As String, ToName As String, _
ToEmailAddress As String, EmailSubject As String, _
EmailBodyOfMessage As String)

DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & _
" " & Format(Time, "hh:mm:ss") & " " & " -0600"

first = "mail from:" + Chr(32) + FromEmailAddress + vbCrLf
Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf
third = "Date:" + Chr(32) + DateNow + vbCrLf
Fourth = "From:" + Chr(32) + FromName + vbCrLf
Fifth = "To:" + Chr(32) + ToName + vbCrLf
Sixth = "Subject:" + Chr(32) + EmailSubject + vbCrLf
Seventh = EmailBodyOfMessage + vbCrLf
Ninth = "X-Mailer: DevPatch Tech Support Form" + vbCrLf
Eighth = Fourth + third + Ninth + Fifth + Sixth + Seventh

Winsock1.Protocol = sckTCPProtocol
Winsock1.RemoteHost = MailServerName
Winsock1.RemotePort = 25
Winsock1.Connect
WaitFor ("220")

Winsock1.SendData ("HEJ microsoft.com" + vbCrLf)
WaitFor ("250")
Winsock1.SendData (first)
WaitFor ("250")
Winsock1.SendData (Second)
WaitFor ("250")
Winsock1.SendData ("data" + vbCrLf)
WaitFor2 ("354 ")

Winsock1.SendData (Eighth)
Winsock1.SendData ("." + vbCrLf)

WaitFor ("250")

Winsock1.SendData ("quit")
WaitFor ("221")

Winsock1.Close

End Sub

Jag är inte helt säker på vilken rad du menar riktigt... Kan du peka ut den skyldiga raden? ;)

Detta är den skyldiga raden
Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf
MVH Mattias

Jag har inget bra förslag på vad som kan vara fel med den raden... Test att deklarera variabeln innan (Dim second as string)