|
Login
  • Page:
  • 1
  • 2

TOPIC: invio file excel ... senza outlook

invio file excel ... senza outlook 10 years 10 months ago #597

  • mauro27
  • mauro27's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 636
  • Thank you received: 9
  • Karma: 42
ho trovato in giro per il web
diverse soluzioni per inviare un messaggio
da excel
utilizzando outlook
perfino aggiungendo file allegati o lo stesso file di origine

ma adesso mi pongo (e Vi pongo) una domanda

riusciamo a spedire l'intero file su cui stamo lavorando ad un indirizzo di posta elettronica
senza utilizzare outlook ?

volendo possiamo anche appoggiarci ad una pagina web con il modulo formail ...

perche' ve lo chiedo?
intanto perche' le interazioni di cui sopra, creano un massaggio e lo depositano nella posta in uscita, non lo spediscono immediatamente

la sfida e' aperta !!!

ciao
mauro
mauro27 - excel 2010 su Win7 - excel 2011 su Mac
_________________________________________________
"per ogni problema esistono almeno 3 soluzioni, l'importante è trovare quella più semplice" - Mauro
"Ogni problema ha tre soluzioni: la mia soluzione, la tua soluzione, e la soluzione giusta" -...
The administrator has disabled public write access.

Re:invio file excel ... senza outlook 10 years 6 months ago #1186

  • davideba
  • davideba's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 448
  • Karma: 33
poiché il discorso spedire mail da vba excel è tornato fuori,

mauro27 ha scritto:
la sfida e' aperta !!!

caro Mauro, con un po’ di ritardo raccolgo la tua sfida.

per evitare di passare da Outlook, puoi utilizzare il CDO: sappimi dire se la soluzione è soddisfacente.
Sub invia_email_CDO()


Set mess = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")

config.Load -1    ' CDO Source Defaults
config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") _
        = "smtp.xxxxxxxxx" 'metti qui il tuo server smtp
config.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
config.Fields.Update

With mess
    Set .Configuration = config
    .To = Range("destinatario").Value
    .CC = ""
    .BCC = ""
    .From = """Pippo"" <pippo@topolinia.it>"
    .Subject = Range("oggetto").Value
    .TextBody = Range("testo").Value
    '.AddAttachment PercorsoAssolutoFileDaAllegare
End With

mess.Send

End Sub


mauro27 ha scritto:
riusciamo a spedire l'intero file su cui stamo lavorando ad un indirizzo di posta elettronica

per spedire il file su cui stai lavorando penso che dovrai salvarne una copia temporanea, spedire la copia e poi eventualmente cancellarla (tutto questo naturalmente si fa via vba: se hai bisogno, chiedi).
The administrator has disabled public write access.

Re:invio file excel ... senza outlook 10 years 6 months ago #1191

  • mauro27
  • mauro27's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 636
  • Thank you received: 9
  • Karma: 42
Ciao Davide

grandioso a dir poco !!!

ma quando arriva all'ultima espressione mi ha un errore
perche' il mio server smtp chiede user e password
(infatti mi sembrava troppo bello che si potesse inviare un'email senza dire "chi sono" ...)

sai quali istruzioni aggiungere per indicare user e password del mittente ?
io ho cercato su google "schemas.microsoft.com/cdo/configuration/smtpserver" ma non ho trovato granche'


ciao e grazie

mauro
mauro27 - excel 2010 su Win7 - excel 2011 su Mac
_________________________________________________
"per ogni problema esistono almeno 3 soluzioni, l'importante è trovare quella più semplice" - Mauro
"Ogni problema ha tre soluzioni: la mia soluzione, la tua soluzione, e la soluzione giusta" -...
The administrator has disabled public write access.

Re:invio file excel ... senza outlook 10 years 6 months ago #1193

  • mauro27
  • mauro27's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 636
  • Thank you received: 9
  • Karma: 42
mitico !!!

funziona, la prima email e' arrivata
fonti:
www.paulsadowski.com/WSH/cdo.htm
support.microsoft.com/kb/555287/it

codice

Sub invia_email_CDO()


Set mess = CreateObject("CDO.Message")
Set config = CreateObject("CDO.Configuration")

config.Load -1 ' CDO Source Defaults
config.Fields.item("schemas.microsoft.com/cdo/configuration/sendusing") = 2
config.Fields.item("schemas.microsoft.com/cdo/configuration/smtpserver") _
= "smtp.xxx.eu" 'metti qui il tuo server smtp

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
config.Fields.item("schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Your UserID on the SMTP server
config.Fields.item("schemas.microsoft.com/cdo/configuration/sendusername") = " This e-mail address is being protected from spambots. You need JavaScript enabled to view it "

'Your password on the SMTP server
config.Fields.item("schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxx"


config.Fields.item("schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
config.Fields.Update

With mess
Set .Configuration = config
.To = Range("destinatario").Value
.CC = ""
.BCC = ""
.From = " This e-mail address is being protected from spambots. You need JavaScript enabled to view it "
.Subject = Range("oggetto").Value
.TextBody = Range("testo").Value
'.AddAttachment PercorsoAssolutoFileDaAllegare
End With

mess.Send

End Sub


ciao
mauro27 - excel 2010 su Win7 - excel 2011 su Mac
_________________________________________________
"per ogni problema esistono almeno 3 soluzioni, l'importante è trovare quella più semplice" - Mauro
"Ogni problema ha tre soluzioni: la mia soluzione, la tua soluzione, e la soluzione giusta" -...
The administrator has disabled public write access.

Re:invio file excel ... senza outlook 10 years 6 months ago #1194

  • davideba
  • davideba's Avatar
  • OFFLINE
  • Platinum Boarder
  • Posts: 448
  • Karma: 33
naturalmente anche io ho trovato tutto in rete. l'ho ripulito e adattato alla nostra discussione.
il link che mi piace di più è: www.rondebruin.nl/cdo.htm

in effetti per usare user e pw, come dici tu, mettiamo:
config.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
config.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
config.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
The administrator has disabled public write access.

invio file excel ... senza outlook 7 years 5 months ago #7215

  • Vale1976
  • Vale1976's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 2
  • Karma: 0
Salve,
ho provato ad eseguire lo script per l'invio di email senza passare per outlook ma, quando effettivamente va ad inviare la mail, mi compare il seguente errore:

Run-time error '-2147220982 (8004020a)':

The SMTP server name is required, and was not found in the configuration source


Considerate che l'indirizzo email configurato come mittente è un indirizzo legato ad un sito registrato con Aruba.it.

Il codice è:
Sub invia_email_CDO()

    Dim mess
    Dim config
    Set mess = CreateObject("CDO.Message")
    Set config = CreateObject("CDO.Configuration")

    config.Load -1 ' CDO Source Defaults
    config.Fields.Item("http://Schemas.microsoft.com/cdo/Configuration/sendusing") = 2
    config.Fields.Item("http://Schemas.microsoft.com/cdo/Configuration/smtpserver") = "smtp.xxx.xxx" 'metti qui il tuo server smtp

    'autentiazione 1 NONE, 2 Basic (Base64 encoded), 3 NTLM
    config.Fields.Item("http://Schemas.microsoft.com/cdo/Configuration/smtpauthenticate") = 1

    'account ID
    config.Fields.Item("http://Schemas.microsoft.com/cdo/Configuration/sendusername") = "xxx@xxx.xxx"

    'password
    config.Fields.Item("http://Schemas.microsoft.com/cdo/Configuration/sendpassword") = "xxx"

    config.Fields.Item("http://Schemas.microsoft.com/cdo/Configuration/smtpserverport") = 25
    config.Fields.Update

    With mess
        Set .Configuration = config
        .To = "xxx@xxx.xxx"
        .CC = ""
        .BCC = ""
        .From = "xxx@xxx.xxx"
        .Subject = "Oggetto test"
        .TextBody = "Messaggio test"
        '.AddAttachment PercorsoAssolutoFileDaAllegare
    End With

    mess.Send

End Sub

Aiutatemiiiiiiiiiiiiiiiiiiiiiii
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Time to create page: 0.566 seconds