Condividi:        

invio email + riferimento a cella specifica

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

Postdi mirmidone21 » 13/04/16 08:23

buongiorno a tutti
apro questo nuovo topic per chiedere se è possibile aggiungere un riferimento ad una cella specifica che vada poi ad aggiungersi automaticamente nel testo, o nell'oggetto della mail.
in effetti trattasi di un codice che si trova da B2 fino alla fine della colonna e che deve inserirsi nel corpo o nell'oggetto della mail
spero di essermi spiegato bene, e vi ringrazio anticipatamente.
inserisco anche il codice vba

Codice: Seleziona tutto
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("a2").End(xlDown).Row
   
    Set OutApp = CreateObject("Outlook.Application")
   
    BDT = "Gentile Cliente,"
    BDT = BDT & vbCrLf & "Le comunichiamo, che POSTE ITALIANE ci ha informato, che purtroppo alcune sue fatture non risultano Le siano state recapitate. "
    BDT = BDT & vbCrLf & "Al fine di evitare il ripetersi del disservizio, La invitiamo a comunicarci il suo esatto indirizzo di spedizione ed un  recapito telefonico." & vbCrLf
    BDT = BDT & "Cordiali Saluti"
   
    For I = 2 To UR
        EmailAddr = Range("A" & I).Value
        Subj = "MANCATO RECAPITO FATTURE"
        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: 149
Iscritto il: 26/10/15 16:48

Sponsor
 

Re: invio email + riferimento a cella specifica

Postdi mirmidone21 » 13/04/16 09:48

volevo solo aggiungere il riferimento al topic precedente dove avevamo trattato l'invio delle mail e da dove ho ripreso il codice vba.

http://www.pc-facile.com/forum/viewtopic.php?f=26&t=106500&p=623337&hilit=+mail#p623337
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48

Re: invio email + riferimento a cella specifica

Postdi Anthony47 » 13/04/16 11:32

Quindi vuoi inserire nel corpo del messaggio e nel Subject il contenuto di colonna B...

Dovrai variare la composizione di BDT e di Subj per inserirci anche Cells(I, 2).Value
Esempi:
Codice: Seleziona tutto
Subj = "MANCATO RECAPITO FATTURE - " & Cells(I, 2).Value

e
Codice: Seleziona tutto
BDT = BDT & vbCrLf  & Cells(I, 2).Value & vbCrLf  & "Cordiali Saluti"


Sono solo degli esempi; che cosa e dove scriverlo per ora lo sai solo tu...

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

Re: invio email + riferimento a cella specifica

Postdi mirmidone21 » 13/04/16 11:58

Anthony grazie funaziona alla grande.
si tratta di un codice identificativo di ogni singolo cliente.

approfitto anche per chiederti tre info:
1) come si inserisce una riga vuota nel corpo della mail
2) si può evidenziare in grassetto una parola
3) si può cambiare colore ad una parola
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48

Re: invio email + riferimento a cella specifica

Postdi Anthony47 » 13/04/16 12:04

1)
Codice: Seleziona tutto
BDT = BDT & vbCrLf & "Testo successivo"     'ogni & vbCrLf aggiunge una interlinea

2-3)
Devi passare da una mail tipo Text ad una mail tipo html; per questo allora il suggerimento e' lo stesso dato a fulviot qui: viewtopic.php?f=26&t=106725#p624919
crei all'interno di un foglio Excel il testo completo della mail, comprensivo della tabella; poi sfrutti la possibilita' di creare un testo gia' formattato tramite la funzione RangePublish che avevo pubblicato qui:
viewtopic.php?f=26&t=101351#p586218


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

Re: invio email + riferimento a cella specifica

Postdi mirmidone21 » 13/04/16 14:55

ho notato che non mi viene riportata la firma che ho inserito di default in Outlook.
come potrei fare per farla inserire
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48

Re: invio email + riferimento a cella specifica

Postdi Anthony47 » 13/04/16 22:40

Sei sicuro che non te la mette, o la mette nella posizione sbagliata? Se non la mette allora il sistema piu' semplice e' che la includi nel foglio Excel che poi sottoponi a RangePublish.

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

Re: invio email + riferimento a cella specifica

Postdi mirmidone21 » 14/04/16 08:40

non la mette proprio.
proverò con RangePublish
grazie
Windows 7 sp1 -- Office 2013
Intel i5 4430 -- 3.00 ghz ---- 4gb RAM
mirmidone21
Utente Senior
 
Post: 149
Iscritto il: 26/10/15 16:48


Torna a Applicazioni Office Windows


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

Password Imap (email)
Autore: lukarello7
Forum: Discussioni
Risposte: 8

Chi c’è in linea

Visitano il forum: Nessuno e 63 ospiti