Componente Aspemail

[Netrix 0]

gostaria de pedir aqui encarecidamente uma ajuda to precisando colocar o componente ASPEMAIL neste condigo mais não consigor se alguem poder me ajuda eu agadeço.

 

<%Sub EnvioEmail()	Dim EnvioEmail		If ComponenteEmail = 1 Then ' CDONTS			Set EnvioEmail = Server.CreateObject("CDONTS.NewMail")						EnvioEmail.From = vEmailNomeRemetente & "<"&vEmailRemetente&">"		EnvioEmail.To = vEmailDestinatario		EnvioEmail.BodyFormat = 0		EnvioEmail.MailFormat = 0		EnvioEmail.Subject = vEmailAssunto		EnvioEmail.Body = vEmailCorpo		EnvioEmail.Send							Set EnvioEmail = Nothing		'response.write vEmailCorpo			ElseIf ComponenteEmail = 2 Then ' CDOSYS		sch = "http://schemas.microsoft.com/cdo/configuration/" 		Set cdoConfig = CreateObject("CDO.Configuration") 		With cdoConfig.Fields 		.Item(sch & "sendusing") = 2 ' cdoSendUsingPort 		.Item(sch & "smtpserver") = "localhost" 		.update 		End With 		Set cdoMessage = CreateObject("CDO.Message") 		With cdoMessage 		Set .Configuration = cdoConfig 		.From = vEmailNomeRemetente & "<"&vEmailRemetente&">" 		.To = vEmailDestinatario		.ReplyTo = vEmailRetorno 			.Subject = vEmailAssunto		.HtmlBody = vEmailCorpo 		.Send 		End With 		Set cdoMessage = Nothing 		Set cdoConfig = Nothing 		'response.write vEmailCorpo	ElseIf ComponenteEmail = 3 Then ' ASPMail		Set EnvioEmail = Server.CreateObject("SMTPsvg.Mailer")		EnvioEmail.RemoteHost = SAddress		EnvioEmail.FromName = vEmailNomeRemetente		EnvioEmail.FromAddress = vEmailRemetente		EnvioEmail.AddRecipient vEmailNomeDestinatario,vEmailDestinatario  		EnvioEmail.ReplyTo = vEmailRetorno		EnvioEmail.Subject = vEmailAssunto		EnvioEmail.ContentType = "text/html"		EnvioEmail.BodyText = vEmailCorpo		EnvioEmail.SendMail		Set EnvioEmail = Nothing		'response.write vEmailCorpo	End If		End Sub%>

[jrcardozo 4]

só adaptar

Set objEmail = Server.CreateObject("Persits.MailSender")		objEmail.Username = StrUsuarioAutenticacao		objEmail.Password = StrSenhaAutenticacao			objEmail.Host	 = StrHostEmail		objEmail.From	 = de		objEmail.FromName = nomeRemetente		objEmail.AddAddress para		objEmail.Subject  = assunto		objEmail.isHTML   = True		objEmail.Body	 = Mensagem			objEmail.AddAttachment anexo					 			objEmail.Send							Set objEmail = Nothing

[Netrix 0]

a adaptação ficaria assim:

 

		Set objEmail = Server.CreateObject("Persits.MailSender")		objEmail.Username = StrUsuarioAutenticacao		objEmail.Password = StrSenhaAutenticacao			objEmail.Host	 = StrHostEmail		objEmail.From	 = vEmailRemetente		objEmail.FromName = vEmailNomeRemetente		objEmail.AddAddress vEmailNomeDestinatario,vEmailDestinatario		objEmail.Subject  = vEmailAssunto		objEmail.isHTML   = True		objEmail.Body	 = vEmailCorpo		objEmail.AddAttachment anexo						 		objEmail.Send							Set objEmail = Nothing

objEmail.Username = StrUsuarioAutenticacao

objEmail.Password = StrSenhaAutenticacao

 

e aqui o que colocor?

[jrcardozo 4]

quase isso

 

Set objEmail = Server.CreateObject("Persits.MailSender")

objEmail.Username = StrUsuarioAutenticacao

objEmail.Password = StrSenhaAutenticacao

objEmail.Host = SAddress

objEmail.From = vEmailRemetente

objEmail.FromName = vEmailNomeRemetente

objEmail.AddAddress vEmailNomeDestinatario,vEmailDestinatario

objEmail.Subject = vEmailAssunto

objEmail.isHTML = True

objEmail.Body = vEmailCorpo

objEmail.AddAttachment anexo

objEmail.Send

Set objEmail = Nothing

 

aquelas duas opções é pra colocar o nome de usuario e senha caso o servidor necessite de autenticação, se não precisa é só retirar as linhas

[Netrix 0]

Obrigado! vou tentar aqui!