Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

invio email + riferimento a cella specifica v2

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 email + riferimento a cella specifica v2

Postdi mirmidone21 » 06/05/16 11:17

buongiorno a tutti
sempre in riferimento all'invio di mail volevo chiedervi come fare per aggiungere nel corpo del messaggio il riferimento ad una cella specifica.
l'inserimento nell'oggetto l'abbiamo risolto nel topic http://www.pc-facile.com/forum/viewtopic.php?f=26&t=106732&p=624954&hilit=+mail#p624954, ora avrei bisogno che la seguente istruzione che si trova nel "Subj" fosse inserita nel corpo della mail

Codice: Seleziona tutto
Intestato a :  " & Cells(I, 2).Value & " " & Cells(I, 3).Value & " - " & Cells(I, 4).Value



vi allego la macro:

Codice: Seleziona tutto
Option Explicit

Sub Invio_Email()
    Dim OutApp As Object
    Dim OutMail As Object
    Dim EmailAddr As String
    Dim Subj As String
    Dim BDT As String
    Dim UR As Integer, I As Integer
    UR = Sheets("Foglio1").Range("I2").End(xlDown).Row
   
    Set OutApp = CreateObject("Outlook.Application")
   
    BDT = "Gentile Cliente,"
       
    For I = 2 To UR
        EmailAddr = Range("I" & I).Value
        'Subj = "MANCATO RECAPITO "
        Subj = "MANCATO RECAPITO : Cliente n° " & Cells(I, 1).Value & " Intestato a :  " & Cells(I, 2).Value & " " & Cells(I, 3).Value & " - " & Cells(I, 4).Value
        Set OutMail = OutApp.CreateItem(0)
        With OutMail
            .To = EmailAddr
            .CC = ""
            .BCC = ""
            .Subject = Subj
            .Body = BDT
'            .Display 'or use .Send
            .Send
        End With

        'Application.Wait (Now + TimeValue("0:00:04")) ' <<==== Vedi se 4 secondi possono essere portati a 1
        'Application.SendKeys "%a"
        Application.Wait (Now + TimeValue("0:00:02")) ' <<==== Vedi se 4 secondi possono essere portati a 1
    Next I
   
    MsgBox "Effettuato invio di  " & UR - 1 & "  e-mail ", vbInformation
    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 124
Iscritto il: 26/10/15 16:48

Sponsor
 

Re: invio email + riferimento a cella specifica v2

Postdi alfrimpa » 06/05/16 11:24

Ciao Mirmidone

Basta scrivere

Codice: Seleziona tutto
BDT = "Gentile Cliente," & " " & Range("TuaCella").Value


oppure

Codice: Seleziona tutto
BDT = "Gentile Cliente," & " " & Cells(num_riga, num_colonna).Value
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 842
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: invio email + riferimento a cella specifica v2

Postdi mirmidone21 » 06/05/16 11:39

ho inserito
Codice: Seleziona tutto
BDT = "Gentile Cliente," & " " & Cells(I, 2).Value

mi da errore runtime 1004 errore definito dall'oggetto o dall'applicazione
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 124
Iscritto il: 26/10/15 16:48

Re: invio email + riferimento a cella specifica v2

Postdi mirmidone21 » 06/05/16 12:09

Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 124
Iscritto il: 26/10/15 16:48

Re: invio email + riferimento a cella specifica v2

Postdi mirmidone21 » 06/05/16 12:26

risolto
utilizzando la variabile I "I As Integer" prima che iniziasse il ciclo di "For I = 2 To UR"
andava in errore.
ora ho solo il problema di come inserire il corpo della mail nel ciclo For I = 2 To UR
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 124
Iscritto il: 26/10/15 16:48

Re: invio email + riferimento a cella specifica v2

Postdi alfrimpa » 06/05/16 14:19

mirmidone21 ha scritto:.......ora ho solo il problema di come inserire il corpo della mail nel ciclo For I = 2 To UR


In sostanza tu vorresti, se ho capito bene, che nel corpo della mail venga inserito un numero variabile di celle (o meglio il loro contenuto)?

Perché non alleghi un file di esempio è indichi qual è il risultato che vuoi ottenere?
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 842
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: invio email + riferimento a cella specifica v2

Postdi Anthony47 » 06/05/16 14:26

Purtroppo dal tuo codice e dalle immagini non mi sono fatto un'idea di che cosa vuoi scrivere nel corpo della mail; quindi rimane valido quanto hai gia' scoperto: prima di inizializzare la variabile "I" il suo uso nel contesto e' erroneo, devi usarlo solo dopo la riga For I = 2 To UR; ad esempio:
Codice: Seleziona tutto
For I = 2 To UR
        BDT = "Gentile Cliente," & vbCrLf & "In riferimento al documento intestato a :  " & Cells(I, 2).Value & " " & Cells(I, 3).Value & " - " & Cells(I, 4).Value
'        BDT = BDT & . . . .        'ALTRO TESTO DA INSERIRE NEL Body
        EmailAddr = Range("I" & I).Value
'etc etc

Anche il titolo aiuta a non capire: nella frase "riferimento a cella specifica v2" che cosa rappresenta V2? E' 'indirizzo della "cella specifica" o una allocuzione alla moda?

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: invio email + riferimento a cella specifica v2

Postdi alfrimpa » 06/05/16 14:40

Anthony molto probabilmente il "V2" è riferito al fatto che questo è il secondo step (versione 2) di una discussione che c'è in precedenza.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 842
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: invio email + riferimento a cella specifica v2

Postdi mirmidone21 » 06/05/16 16:33

è come dice alfredo, si tratta del secondo step di una discussione già fatta, ho messo anche il link, nella quale Anthony mi aveva aiutato a risolvere il problema creando una macro ad hoc.
mi era parso di capire che era meglio non riprendere i vecchi topic, ma crearne uno nuovo.
appena torno in ufficio provo e vi faccio sapere
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 124
Iscritto il: 26/10/15 16:48

Re: invio email + riferimento a cella specifica v2

Postdi mirmidone21 » 09/05/16 09:59

ho fatto la prova è funziona tutto perfettamente, come già detto, ero io che sbagliavo ad inserire la stringa, la mettevo prima del ciclo "FOR...." :oops: :)
grazie infinite a tutti, alla prossima.
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 124
Iscritto il: 26/10/15 16:48


Torna a Applicazioni Office Windows


Topic correlati a "invio email + riferimento a cella specifica v2":

Email curiose
Autore: gimart
Forum: Applicazioni Office Windows
Risposte: 6

Chi c’è in linea

Visitano il forum: alfrimpa e 7 ospiti