Condividi:        

invio mail con outlook express o outlook

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

invio mail con outlook express o outlook

Postdi nicola_na78 » 29/07/10 09:15

ciao amici, eccomi dinuovo qui a chiedere il vostro formidabile aiuto. tramite macro da excel invio una mail utilizzanto la seguenteistruzione:
Dim myOutlook As Object
Dim myMailItem As Object
variabileEmailDelDestinatario = "test@test.ext"
Set otlApp = CreateObject("Outlook.Application")
Set otlNewMail = otlApp.CreateItem(olMailItem)
fName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
With otlNewMail
.To = "pippo@pippo.com"
.CC = ""
.Subject = "Invio file Ordine "
.body = ""
.Display
.Attachments.Add "c:\file.txt"
End With

fino a quando viene usato outlook la macro funziona, quando invece si utilizza outlook express va in errore..... come posso fare a far si che la mia istruzione va ad aprire ugualmete il programma di posta elettronica a prescindere che sia outlook o outlook express?????

grazie a presto.

nicola
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26

Sponsor
 

Re: invio mail con outlook express o outlook

Postdi Flash30005 » 29/07/10 09:59

Nel forum ci sono diverse discussioni inerenti il tuo quesito

leggi questa come esempio
altrimenti in questa stessa sezione fai una ricerca con parola chiave "invio email" o "invio email express"

Fai sapere

ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: invio mail con outlook express o outlook

Postdi nicola_na78 » 29/07/10 10:26

ho controllato ma non c'e' nulla che parla di outlook express..... cosa posso fare???
poi un'altra cosa, ho inserito questa istruzione Option VBASupport 1 all'inizio della macro solo che non funziona dovrei far girare la macro anche su open office, forse devo aggiungere qualche riferimento nella libreria???
ciao
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26

Re: invio mail con outlook express o outlook

Postdi Anthony47 » 29/07/10 12:19

Quello script crea una istanza dell' applicazione Outlook, e non puo' fare altro.
Come detto in altri casi, Outlook Express non ha il supporto per l' automazione; vedi viewtopic.php?f=26&t=87371 anche per il suggerimento di usare il metodo SendMail.

Per quanto riguarda OpenOffice, purtoppo non ho nessuna esperienza in merito.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: invio mail con outlook express o outlook

Postdi Flash30005 » 29/07/10 23:38

Testai tempo fa una macro funzionante con outlook express e la replico qui
(la macro da avviare è questa)

Codice: Seleziona tutto
    Sub PrendiOggetto()
        AvviaOE = Shell("C:\Programmi\Outlook Express\msimn.exe")
                    Application.Wait (Now + TimeValue("0:00:10"))
        Call SendEmail2

    End Sub

che richiama questa routine

Codice: Seleziona tutto
Sub SendEmail2()
    For Each cell In Columns("E").Cells.SpecialCells(xlCellTypeConstants) 'nella colonna "E" ci sono gli indirizzi email completi
        If cell.Value Like "*@*" Then
            Recipient = cell.Value
            Subj = "Inserire l'oggetto (anche da cella di excel)"
            Msg = "Caro (o altro) " & cell.Offset(0, -1).Value & "%0A" 'nella colonna "D" il nome
            Msg = Msg & "%0A" & "Ti invio il Report ProvaExpress"
            Msg = Msg & cell.Offset(0, 1).Value & "%0A"
            Msg = Msg & "%0A" & "Nome e Cognome di chi invia"
            Msg = Msg & "%0A" & "L'Amministratore"
            HLink = "mailto:" & Recipient & "?"
            HLink = HLink & "subject=" & Subj & "&"
            HLink = HLink & "body=" & Msg
            ActiveWorkbook.FollowHyperlink (HLink)
            Application.Wait (Now + TimeValue("0:00:02"))
            Application.SendKeys "%s"
        End If
    Next
End Sub


Le stringhe di Msg, nella seconda macro, puoi sostituirle
per gli indirizzi segui le istruzioni commentate

fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: invio mail con outlook express o outlook

Postdi nicola_na78 » 30/07/10 08:23

puo' funzionare.... grazie per l'aiuto. l'allegato si puo' inserire??? qual'è l'istruzione. grazie ancora a presto.
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26

Re: invio mail con outlook express o outlook

Postdi nicola_na78 » 30/07/10 09:21

ciao flash, ho provato la macro che mi hai postato..... ho fatto una piccola modifica e ho notato che ora quando la lancio apre outlook se c'è o outlook express..... è perfetta.... la posto sotto. ora se mi dai una dritta su come allegare un file siamo a posto...... grazie

Sub invia_mail()

Recipient = "pippo@dominio.com"
Subj = "Invio ordine" & " " & "del" & " " & Date
msg = "Spett. " & "azienda. spa
msg = msg & "%0A"
msg = msg & "%0A" & "Invio ordine del " & Date
msg = msg & "%0A"
msg = msg & "%0A" & "Cordiali saluti"
hLink = "mailto:" & Recipient & "?"
hLink = hLink & "subject=" & Subj & "&"
hLink = hLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (hLink)
End Sub
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26

Re: invio mail con outlook express o outlook

Postdi Flash30005 » 30/07/10 09:50

Ci sono diverse discussioni in merito
prova a vedere
qui 1
qui 2
qui 3

dipende dal tipo di allegato, la soluzione 3 ti permette di selezionare un allegato diverso a seconda del "valore" cella con
OutFile = Range("e" & IE).Value (dove IE è una variabile determinata dal ciclo For...next)
e
.Attachments.Add OutFile

Tieni presente che dovrai usare solo questi due codici adattandoli alla tua macro
(non utilizzare la macro del link che è creata per MS Outlook)

Fai sapere
Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: invio mail con outlook express o outlook

Postdi nicola_na78 » 30/07/10 10:28

non risco a farlo funzionare... non mi pui aggiungere tu nella macro "Invia_mail()" che ho postato prima l'istruzione??? io devo allegare un file che si chiama ordine.txt e si trova in c:\ordine.txt

grazie ciao


Sub invia_mail()

Recipient = "pippo@dominio.com"
Subj = "Invio ordine" & " " & "del" & " " & Date
msg = "Spett. " & "azienda. spa
msg = msg & "%0A"
msg = msg & "%0A" & "Invio ordine del " & Date
msg = msg & "%0A"
msg = msg & "%0A" & "Cordiali saluti"
hLink = "mailto:" & Recipient & "?"
hLink = hLink & "subject=" & Subj & "&"
hLink = hLink & "body=" & msg
ActiveWorkbook.FollowHyperlink (hLink)
End Sub
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26

Re: invio mail con outlook express o outlook

Postdi Flash30005 » 30/07/10 13:25

Con Outlook Express non è possibile inviare allegati a meno che non siano file di excel che si rendono momentaneamente attivi proprio per l'invio.
Per il file testo potremmo escogitare un copia incolla il testo del file nel corpo del messaggio.

----
Non capisco come mai hai tolto il comando di invio che avevo inserito alla fine della macro

Codice: Seleziona tutto
            Application.Wait (Now + TimeValue("0:00:02"))
            Application.SendKeys "%s

La tua modifica ti costringerà ad inviare manualmente l'email preparata dalla macro.


Fai sapere
Ciao

Messaggio modificato alle ore 15:00 - per aver appurato che la macro, di invio con allegato, non era funzionante - Flash30005
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: invio mail con outlook express o outlook

Postdi nicola_na78 » 02/08/10 08:30

ciao, l'ho tolto perche' l'invio lo faccio io tramite un pulsante.....
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26


Torna a Applicazioni Office Windows


Topic correlati a "invio mail con outlook express o outlook":

incollare in Outlook
Autore: valyfilm
Forum: Software Windows
Risposte: 1

Chi c’è in linea

Visitano il forum: Nessuno e 91 ospiti