Inviare una Mail da Excel con il testo costruito dal File

[Giordy90]

Buonasera a tutti,

Vi contatto perché vorrei sapere se è possibile creare una macro su Excel in grado di creare e inviare mail dalla posta di outlook e del PC.

Io ho un foglio excel così strutturato:
- Foglio1 con due colonne A e Bcon due colonne,
- all'interno di ogni cella della colonna A ho una ho più mail separate da un ";",
- nella colonna B ho i codici che devono essere inviati alle mail presenti nella colonna A nella stessa riga,
- la colonna A può avere più celle uguali
- Foglio2 con il testo nella cella A1

Quello che vorrei facesse la Macro è:
- andare su outlook,già aperto
- scrivere una mail con un certo testo che è presente nella cella A1 del Foglio2
- aggiungere al testo della mail tutti i codici che hanno sulla stessa riga lo stesso gruppo di mail, in altre parole hanno la cella nella colonna A con la stesso stringa.
- scrivere nel campo A: della mail il gruppo di indirizzi per i quali si sono raggruppati i codici
- Inviare la mail
- Ripetere queste attività una sola volta per ogni gruppo di indirizzi che si trovano all'interno delle celle della colonna A.

In allegato vi fornisco un esempio di come è strutturato il file.

https://www.dropbox.com/s/e1z2dr143jqoo ... .xlsx?dl=0

C'è qualcuno in grado di aiutarmi con questa macro?

Vi ringrazio anticipatamente per il supporto e spero di creare una vivace discussione di aiuto per tutti.

Giordano

[Anthony47]

Quello che vorrei facesse la Macro è:
- andare su outlook,già aperto
- scrivere una mail con un certo testo che è presente nella cella A1 del Foglio2
- aggiungere al testo della mail tutti i codici che hanno sulla stessa riga lo stesso gruppo di mail, in altre parole hanno la cella nella colonna A con la stesso stringa.
- scrivere nel campo A: della mail il gruppo di indirizzi per i quali si sono raggruppati i codici
- Inviare la mail
- Ripetere queste attività una sola volta per ogni gruppo di indirizzi che si trovano all'interno delle celle della colonna A.

Allora ti serve mandare una mail a ogni gruppo di destinatari, preoccupandosi di spedire una sola mail a ogni gruppo ma riepilogando nel testo tutti i codici che appartengono a quel gruppo di destinatari.

Se e' cosi', partendo da una delle tante Sub Invioemail pubblicate nel forum, ti suggerisco questa:

Codice: Seleziona tutto

Sub Invioemail41()
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=109185
Dim OutApp As Object, OutMail As Object, I As Long, J As Long
Dim EmailAddr As String, Subj As String, lastA As Long, BDT As String
'

Set OutApp = CreateObject("Outlook.Application")
Sheets("Foglio1").Select                                '<<< Il foglio con Indirizzi e "Codici"lastA = Cells(Rows.Count, 1).End(xlUp).Row
For I = 2 To lastA
    If Application.WorksheetFunction.CountIf(Range("A1").Resize(I, 1), Cells(I, 1)) < 2 Then
        EmailAddr = Cells(I, 1)                         'INDIRIZZO da colonna A
        Subj = "Un Soggetto a piacere"                  '<<< OGGETTO DELLA MAIL
        Set OutMail = OutApp.CreateItem(0)
        BDT = Sheets("Foglio2").Range("A1")
        For J = I To lastA
            If Cells(J, 1) = Cells(I, 1) Then BDT = BDT & ", " & Cells(J, 2)
        Next J
        With OutMail
            .to = EmailAddr
            .CC = ""
            .BCC = ""
            .Subject = Subj
            .body = BDT
            .send
        End With
        Application.Wait (Now + TimeValue("0:00:01"))
        Set OutMail = Nothing
    End If
Next I
Set OutApp = Nothing
'
End Sub

Le righe marcate <<< vanno compilate come da commento

Va messa in un "modulo standard del vba" (es Modulo1), e va avviata all'occorrenza.

Ciao, fai sapere