[VB.NET] Invio mail

[Aki]

Scusate raga
com'è il codice per mandare una mail in formato HTML?

[Aki]

ecco la soluzione che ho trovato:

Dim iMsg as New CDO.Message
Dim iConf as New CDO.Configuration

Dim Flds as ADODB.Fields
Set Flds = iConf.Fields

With Flds
  .Item(cdoSendUsingMethod)       = cdoSendUsingPort
  .Item(cdoSMTPServer)            = "server.example.com"
  .Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
  .Item(cdoSMTPAuthenticate)      = cdoBasic

  ' IMPORTANT: Storing user names and passwords inside source code
  ' can lead to security vulnerabilities in your software. Do not
  ' store user names and passwords in your production code.
  .Item(cdoSendUserName)          = "username"
  .Item(cdoSendPassword)          = "password"

  .Item(cdoURLProxyServer)        = "server:80"
  .Item(cdoURLProxyBypass)        = "<local>"
  .Item(cdoURLGetLatestVersion)   = True
  .Update
End With

With iMsg
  Set .Configuration = iConf
      .To       = """User A"" <example@example.com>"
      .From     = """User B"" <exampleB@example.com>"
      .Subject  = "Hows it going? I've attached my web page"
      .CreateMHTMLBody "http://example.com"
      .AddAttachment "C:\files\mybook.doc"
      .Send
End With

però non trova il namespace di cdo, da che namespace si eredita x avere l'uso di CDO????

[Aki]

' ###### MAIL SENDER
			   	Dim iMsg as New CDO.Message
				Dim iConf as New CDO.Configuration

				Dim Flds as ADODB.Fields
				Set Flds = iConf.Fields

				With Flds	
					.Item(cdoSendUsingMethod)       = cdoSendUsingPort
  					.Item(cdoSMTPServer)            = "192.168.100.60"
  					.Item(cdoSMTPConnectionTimeout) = 10 ' quick timeout
  					.Item(cdoSMTPAuthenticate)      = cdoBasic
  					
  					.Item(cdoURLProxyServer)        = "server:80"
  					.Item(cdoURLProxyBypass)        = "<local>"
  					.Item(cdoURLGetLatestVersion)   = True
  					.Update
				End With

				With iMsg
  					Set .Configuration = iConf
      					.To       = """SSymon"" <example@example.com>"
      					.From     = """User B"" <due@example.com>"
      					.Subject  = "Ih-ih-ih-ih"
      					.CreateHTMLBody "MAIL/post.asp"
      					.Send
				End With

questo mi dà sto errore:

Server Error in '/wcv' Application.
--------------------------------------------------------------------------------

Compilation Error
Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30002: Type 'CDO.Message' is not defined.

Source Error:



Line 433:
Line 434: ' ###### MAIL SENDER
Line 435: Dim iMsg as New CDO.Message
Line 436: Dim iConf as New CDO.Configuration
Line 437:


Source File: D:\Wcv\index.aspx Line: 435



Show Detailed Compiler Output:


C:\WINNT\system32> "c:\winnt\microsoft.net\framework\v1.1.4322\vbc.ex e" /t:library /utf8output /R:"c:\winnt\assembly\gac\system.web\1.0.5000.0__b0 3f5f7f11d50a3a\system.web.dll" /R:"c:\winnt\assembly\gac\system\1.0.5000.0__b77a5c 561934e089\system.dll" /R:"c:\winnt\assembly\gac\system.web.services\1.0.5 000.0__b03f5f7f11d50a3a\system.web.services.dll" /R:"c:\winnt\assembly\gac\system.xml\1.0.5000.0__b7 7a5c561934e089\system.xml.dll" /R:"c:\winnt\assembly\gac\system.web.mobile\1.0.500 0.0__b03f5f7f11d50a3a\system.web.mobile.dll" /R:"c:\winnt\assembly\gac\system.drawing\1.0.5000.0 __b03f5f7f11d50a3a\system.drawing.dll" /R:"c:\winnt\assembly\gac\system.data\1.0.5000.0__b 77a5c561934e089\system.data.dll" /R:"c:\winnt\assembly\gac\system.enterpriseservices \1.0.5000.0__b03f5f7f11d50a3a\system.enterpriseser vices.dll" /out:"C:\WINNT\Microsoft.NET\Framework\v1.1.4322\Te mporary ASP.NET Files\wcv\a61c80f3\237dbb40\9ledkbv3.dll" /DEBUG=1 /debug+ "C:\WINNT\Microsoft.NET\Framework\v1.1.4322\Tempor ary ASP.NET Files\wcv\a61c80f3\237dbb40\9ledkbv3.0.vb"


Version Information: Microsoft .NET Framework Version:1.1.4322.573; ASP.NET Version:1.1.4322.573

[Daniele80]

prova con questa

Imports System.Web.Mail

[Aki]

Originariamente inviato da Daniele80
prova con questa

Imports System.Web.Mail

no stesso errore

[Cartman]

Dim mail As New Mail.MailMessage()
        mail.From = "tuo@indirizzo.it"
        mail.To = indirizzo
        mail.Subject = oggetto
        mail.Body = testomail
        mail.BodyFormat = Mail.MailFormat.Html
        SmtpMail.Send(mail)