Skicka e-mail m h a VB

Ja, visst. Varken JMail eller CDONTS har ett smack med ASP att göra. De är vanliga Windows COM-komponenter. Project -> References -> Lägg till Jmail eller Microsoft CDO for NTS så kan du köra typat och använda intellisensen. (Det går så klart att använda CreateObject också.)

Ok. :)

Microsoft CDO for NTS finns inte med på min lista. :l
Varför?

Om jag ska använda Jmail, vad ska jag då ange som e-posterver?

Microsoft CDO for NTS finns inte med på min lista.

För att den inte är installerad? Eller att den eventuellt heter nåt annat på XP. Har du den virtuella SMTP:en i IIS:en installerad?

Om jag ska använda Jmail, vad ska jag då ange som e-posterver?

Tja .. Nån server du brukar använda. localhost funkar bra om du har en lokal SMTP.

Hur ser koden ut för när man skickar med hjälp av JMail?

Den koden jag har fungerar inte... :(

Vad är det som inte funkar då?

    Dim objMail As jmail.Message
    Set objMail = New jmail.Message
    objMail.From = "dinmailadress"
    objMail.FromName = "Ampy"
    objMail.AddRecipient "dinmottagaresadress"
    objMail.Subject = "..."
    objMail.Body = "..."
    objMail.Send "dinsmtpserver"
    Set objMail = Nothing

Felmeddelande:

The message was undeliverable. All servers failed to recieve the message.

Vad är det för SMTP du försöker använda då? Om den kräver påloggning så kan du göra det med:

	objMail.MailServerUserName = "xxxxxx"
	objMail.MailServerPassWord = "yyyyyy"

I annat fall kan du få ut ett mer exakt fel om du kör:

    Dim objMail As jmail.Message
    On Error Resume Next
    Set objMail = New jmail.Message
    objMail.Logging = True
    objMail.From = "dinmailadress"
    objMail.FromName = "Ampy"
    objMail.AddRecipient "dinmottagaresadress"
    objMail.Subject = "..."
    objMail.Body = "..."
    objMail.Send "dinsmtpserver"
    If Err.Number <> 0 Then Debug.Print objMail.Log
    Set objMail = Nothing

Jag skrev "localhost" som SMTP-server. Men jag vet inte riktigt om jag har det aktiverat på datorn eller inte.

Jag har självklart IIS installerat.

Vad får du för fel med Debug.Print objMail.Log? Om det är "No socket .." så har du inte SMTP:en installerad eller avstängd.

Jag får samma felmeddelande som förut eftersom den raden ligger före.

Om jag skriver in koden "on error resume next" kommer inget meddelande fram.

Om jag skriver in koden "on error resume next" kommer inget meddelande fram.

Jo. Det finns i debug-fönstret: View - Immediate Window.

Men i vilket fall som helst: Om du startar IIS-managern så ser du ju om du har SMTP:en installerad eller om den eventuellt bara är avstängd. Eftersom du inte kunde lägga till CDONTS-referenserna tidigare så är nog risken att du får plocka fram Windows-skivan och installera den.

Se bifogad bild för att se hur det ser ut i IIS.

Ser väl bra ut. Men då är ju frågan vad du får för felmeddelande.

Kör:

If Err.Number <> 0 Then msgbox objMail.Log

om det känns bättre.

Det underliga är att det står ingenting i messageboxen. :l

Den kommer alltså fram men det står inget meddelande i den.

Eeh? Du har inte glömt:

objMail.Logging = True

?

Se bifogad fil:

Högerklicka SMTP i IIS Managern->Properties->Access->Relay ..->Only list below. Lägg där till 127.0.0.1 och/eller din kort-IP.

Nu blir det inget felmeddelande eller nånting men mailet kommer aldrig fram till den e-postadress jag skickade till. Har väntat i ungerfär 10 minuter nu.

Varför kommer det aldrig fram?