Forum 

Forum AspNuke.it - Il tuo Portale OpenSource in ASP

Forum
  SUPPORTO TECNICO 2.07
      FUNZIONALITA'
         newsletter con allegati

newsletter con allegati

Autore Messaggio
excesss

Principiante
Principiante
8 Discussioni


Profilo - excesss 		21 giugno 2005 alle 13:16:56 Profilo - excesssInvia un messaggio privato Rispondi quotando
Modificato il 21 giugno 2005 alle 13:19:50
ciao ragazzi ho la necessità di inviare email con allegati

ho inserito un campo con il percorso dell'allegato che risiede su lserver ma anche modificando la funzione
in questo modo
Function SendMailExtendedAll(ByVal sSender, ByVal sRecipient, ByVal sCCRecipient, ByVal sBCCRecipient, ByVal sSubject, ByVal sText, ByVal bHTML, ByVal iPriority, ByVal sAllegato)
Dim oMail, bOk, oConfig

On error resume next

Set oMail = Server.CreateObject("CDO.Message")
'message body
If bHTML Then
If InStr(sText, "<html>") = 0 Then
oMail.HTMLBody = "<html><body>" & vbCRLF & Text2HTML(sText) & vbCRLF & "</body></html>"
else
oMail.HTMLBody = Text2HTML(sText)
end if
Else
oMail.TextBody = sText
End If
'0, 1, 2
oMail.Fields.Item("urn:schemas:httpmail:importance") = iPriority
oMail.Fields.Update()

oMail.From = sSender
oMail.To = sRecipient
oMail.Subject = sSubject

if trim(sCCRecipient) <> "" then
oMail.Cc = sCCRecipient
end if
if trim(sBCCRecipient) <> "" then
oMail.Bcc = sBCCRecipient
end if

if bUseOwnSMTPServer then
Set oConfig = Server.CreateObject("CDO.Configuration")
'Configuration: the first field specifies to use an external SMTP server
oConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sOwnSMTPServer
oConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = sOwnSMTPPort
oConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = sOwnSMTPAuthenticate
oConfig.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = sOwnSMTPUser
oConfig.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = sOwnSMTPPassword
oConfig.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = sOwnSMTPTimeOut
'Update configuration
oConfig.Fields.Update
Set oMail.Configuration = oConfig
end if
'to add attachment, use
oMail.AddAttachment server.mappath(sAllegato)
oMail.Send
If Err <> 0 Then
Err.Clear
bOk = False
Else
bOk = True
End If
On Error Goto 0

set oConfig = nothing
set oMail = nothing

SendMailExtendedAll = bOk
End Function


oppure inserendo al posto di sAllegato il percorso completo

non mi arriva l'allegato

potete aiutarmi?

è inutile dire che ho modificato il newsletter-inc che richiama la funzione aggiungendo il parametro sAllegato
excesss

Principiante
Principiante
8 Discussioni


Profilo - excesss 		21 giugno 2005 alle 14:56:40 Profilo - excesssInvia un messaggio privato Rispondi quotando
mi correggo se inserisco il percorso "c:percorsocartellafile.ext" al posto della variabile sAllegato mi funziona

ma come faccio a far cambiare il nome dell'allegato

io vorrei che la parte file.ext non fosse predeterminata

grazieeeeeeeeeeeee

[lo] [lo]

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 116
Membri : 0 offline Anna

Iscritti

 Utenti: 18940
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2210 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 558 Notizie: 180 Sondaggi: 11 Preferiti: 5685263 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi