Camila Conti
-
Total de itens
4 -
Registro em
-
Última visita
Sobre Camila Conti
Camila Conti's Achievements
0
Reputação
-
Não sei se isto te ajuda, mas dá uma estudada... Assim você cria um componente ... Public Function SendMail(ByVal pstrMailTo As String, _ ByVal pstrMailSender As String, _ ByVal pstrServerName As String, _ ByVal pstrAccountName As String, _ ByVal pstrProxyServer As String, _ ByVal pstrProxyPass As String, _ Optional ByVal pstrMailCC As String, _ Optional ByVal pstrMailBCC As String, _ Optional ByVal pstrMailSubject As String, _ Optional ByVal pstrMailBody As String) As Boolean On Error GoTo Err_SendMail Dim objCDOMail As Object Dim objCDOConfig As Object ' Cria os Objetos CDO Set objCDOMail = CreateObject("CDO.Message") Set objCDOConfig = CreateObject("CDO.Configuration") ' Atribui as propriedades de Recipient With objCDOConfig.Fields .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = pstrServerName .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 0 .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = pstrAccountName .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" .Item("http://schemas.microsoft.com/cdo/configuration/urlproxyserver") = pstrProxyServer .Item("http://schemas.microsoft.com/cdo/configuration/urlproxybypass") = pstrProxyPass .Item("http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion") = True ' Atualiza o objCDOConfig .Update End With ' Atribui as Informações do Email With objCDOMail ' Informa qual a Configuração do Recipient Set .Configuration = objCDOConfig ' Informações de Envio e Body .To = pstrMailTo .Cc = pstrMailCC .Bcc = pstrMailBCC .From = pstrMailSender .Subject = pstrMailSubject .TextBody = pstrMailBody ' Envia os Emails .Send End With ' Informa que o Email foi enviado com sucesso SendMail = True ' Limpa a Memória Set objCDOMail = Nothing Set objCDOConfig = Nothing Exit Function Err_SendMail: ' Retorna o Erro Err.Raise Err.Number, Err.Source, Err.Description ' Informa que o Email foi enviado com sucesso SendMail = False ' Limpa a Memória Set objCDOMail = Nothing Set objCDOConfig = Nothing End Function
-
Obrigado pessoal Isso acho q resolve o meu problema Brigadão Beijinhos
-
Pode ser...... é que eu já montei varias paginas assim... Ai se eu preciso alterar um campo de dentro da table q esta dentro da Div eu tenho q ir no codigo tirar o style='display:none' e voltar ao design e modificar.... demora muito e no dreamweaver mx eu não prcisava fazer isso só agora q estou usando o Mx 2004. . Mas manda o tutorial q eu quero ver como se faz isso de maneira mais simples Brigadinho Mil@
-
OLA bom ai esta... Brigadinho Copia esse código Ai você coloca para visualizar o design e so veras a primeira div onde esta: div id='divContainer1' style='display:block' porque display:block mostra a div. Mas onde esta: <div id='div1' style='display:none'> o conteúdo não é mostrado no Show Design View.... alguém sabe como desabilitar isso... O conteudo só aparece mudando o código para qualquer coisa diferente de style='display:none' Já no DW MX isso não acontecia... <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body bgcolor="#FFFFFF" text="#000000"> <form method="post" name="Frm"> <table width="600"> <tr> <td> <!--Inicio Bloco 1 --> <div id='divContainer1' style='display:block' isParent='true'> <table id="tblPerfil" width="100%" border="0" cellpadding="0" cellspacing="0" align="center"> <tr> <td width='10' bgcolor="#006666" > </td> <td bgcolor="#006666">Expandir</td> <td width='10' align="center" bgcolor="#006666"> </td> </tr> <tr> <td></td> <td> <div id='div1' style='display:none'> <table width="100%" border="0" cellspacing="0" cellpadding="2"> <tr> <td>TESTE</td> </tr> <tr> <td>TESTE</td> </tr> <tr> <td>TESTE</td> </tr> <tr> <td>TESTE</td> </tr> <tr> <td>TESTE</td> </tr> </table> </div> </td> <td></td> </tr> </table> </div> <!--Fim de Bloco 1 --> </td> </tr> </table> </form> </body> </html> Obrigao MiL@