Pagina 1 di 2 1 2 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 19

Discussione: Invio mail con cdo

  1. #1

    Invio mail con cdo

    Ciao ragazzi se provo a mandare una mail con questo codice:

    codice:
    ' stringa HTML da inviare
    	strHTML = "<html><body>"
    	strHTML = strHTML & "
    
    Questo è un messaggio HTML.</p>"
    	strHTML = strHTML & "</body></html>"
    	
    	set CDOmail = CreateObject("CDO.Message")
    	
    	CDOmail.To = sUserMail
    	CDOmail.From = "prova@prova.com"
    	CDOmail.Subject = "Prova"
    	
    	' testo da inviare
    	CDOmail.HTMLBody = strHTML
    	
    	' invio del messaggio
    	CDOmail.Send
    mi esce questo errore:
    CDO.Message.1 (0x80040220)
    Il valore di configurazione "SendUsing" non è valido.

    Dove sbaglio?
    Nat Pharma Snc - www.natpharma.it -www.birrapercani.it
    Produzione di integratori fitoterapici per uso veterinario composti interamente da materie prime di origine vegetale



  2. #2

  3. #3
    ciao, ma trovo una pagina vuota ...
    Nat Pharma Snc - www.natpharma.it -www.birrapercani.it
    Produzione di integratori fitoterapici per uso veterinario composti interamente da materie prime di origine vegetale



  4. #4
    ops scusa, è in fondo .....
    Nat Pharma Snc - www.natpharma.it -www.birrapercani.it
    Produzione di integratori fitoterapici per uso veterinario composti interamente da materie prime di origine vegetale



  5. #5
    Ho fatto così:
    codice:
    Dim objMail, objConfig 
    	
    	Set objMail = Server.createObject("CDO.Message") 
    	Set objConfig = Server.createObject("CDO.Configuration") 
    	
    	' Imposta le configurazioni 
    	With objConfig 
    	
    	' Server SMTP di uscita 
    	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
    	
    	' Porta SMTP 
    	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
    	
    	' Porta CDO 
    	.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
    	
    	' Timeout 
    	.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 
    	
    	.Fields.update 
    	End With 
    	
    	' Assegna le configurazioni 
    	Set objMail.Configuration = objConfig 
    	
    	objMail.From = "prova@prova.com" 
    	objMail.To = sUserMail
    	objMail.Subject = "Conferma registrazione" 
    	
    	' Valore di priorità 
    	objMail.Fields("urn:schemas:httpmail:importance").Value = 2 
    	objMail.Fields.update() 
    	
    	' Corpo del messaggio 
    	'objMail.TextBody = "Testo della mail" 
    	objMail.HTMLBody = "Testo della mail" 
    	
    	objMail.Send() 
    	Set objMail = Nothing
    Mi esce che è impossibile connettersi al server smtp.
    Io in effetti lavoro in locale con questo sito, per cui che devo fare?
    Le stringhe come ("http://schemas.microsoft.com/cdo/configuration/smtpserver")
    cosa significano? Dovono rimanere tali?

    Ciao
    Nat Pharma Snc - www.natpharma.it -www.birrapercani.it
    Produzione di integratori fitoterapici per uso veterinario composti interamente da materie prime di origine vegetale



  6. #6
    Moderatore di CMS L'avatar di kalosjo
    Registrato dal
    Jul 2001
    residenza
    In culo alla luna
    Messaggi
    1,999
    Esattttttto

    Devono rimanere così, p i p p o n e mentali del grande bill
    Scusate i puntini di sospensione...... La verità è che non ho argomenti....

  7. #7
    A parte questo non riesco ancora a farlo funzionare perchè io il sito lo uso in locale, per cui come devo settare i parametri?
    Nat Pharma Snc - www.natpharma.it -www.birrapercani.it
    Produzione di integratori fitoterapici per uso veterinario composti interamente da materie prime di origine vegetale



  8. #8
    Moderatore di CMS L'avatar di kalosjo
    Registrato dal
    Jul 2001
    residenza
    In culo alla luna
    Messaggi
    1,999
    esattamente come sono settati, evidentemente non hai un smtp server in locale...
    Scusate i puntini di sospensione...... La verità è che non ho argomenti....

  9. #9
    azz......
    e come potrei averlo ?

    Io uso win 2000 pro.


    Grazie in anticipo per l'aiuto
    Nat Pharma Snc - www.natpharma.it -www.birrapercani.it
    Produzione di integratori fitoterapici per uso veterinario composti interamente da materie prime di origine vegetale



  10. #10
    Moderatore di CMS L'avatar di kalosjo
    Registrato dal
    Jul 2001
    residenza
    In culo alla luna
    Messaggi
    1,999
    Azz, allora c'è in IIS...
    Scusate i puntini di sospensione...... La verità è che non ho argomenti....

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.