Secondo voi c'è qualche modo per ottimizzare il file?
La mia banca dati è così composta:
Colonna A: Nominativo
Colonna B: Campo che serve a me non presente in macro
Colonna C: Mail
Colonna D: Sesso (mi serve per fare un check e mandare la mail personalizzata aggiungendo nel corpo "buongiorno Dott./Dott.ssa)
Colonna E: Dottore si/no (altro check per capire se nell'intestazione debba scrivere Buongiorno Sig./ Sig.ra
La macro serve che mi invi delle mail personalizzate ai miei clienti, con un allegato unico.
- Codice: Seleziona tutto
Sub Invioemail()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailAddr As String
Dim BDT As String
Dim sesso As String
Dim dottore As String
Dim Subj As String
contatore = Worksheets("Foglio1").Range("C" & Rows.Count).End(xlUp).Row
OutFile = "C:\Users\Musma\Desktop\Mailing List\Cedola Flaccovio 2015.pdf"
Set OutApp = CreateObject("Outlook.Application")
For IE = 2 To contatore
EmailAddr = Range("C" & IE).Value
sesso = Range("D" & IE).Value
dottore = Range("E" & IE).Value
If (dottore = "si") And (sesso = "M") Then
BDT = "Dott. " & Range("a" & IE).Value
ElseIf (dottore = "si") And (sesso = "F") Then
BDT = "Dott.ssa " & Range("a" & IE).Value
ElseIf (dottore = "no") And (sesso = "M") Then
BDT = "Sig. " & Range("a" & IE).Value
Else
BDT = "Sig.ra " & Range("a" & IE).Value
End If
BDT2 = BDT
BDT3 = BTD2 & vbCrLf & "Mi permetto di inviarle una cedola di sicuro interesse per lei.Qualora volesse essere contattato per informazioni in merito non esiti a contattarmi." & vbCrLf
BDT4 = BDT3 & "Andrea Musmeci" & vbCrLf
BDT5 = BDT4 & "Celnetwork"
Set OutMail = OutApp.CreateItem(0)
With OutMail
.To = EmailAddr
.CC = ""
.BCC = ""
.Subject = "Cedola Nuovo Caringella alla cortese attenzione - " & BDT
.Body = "Buongiorno " & BDT & "," & BDT4
'.Attachments.Add OutFile'
.send 'or use .send
End With
Next IE
End Sub
C'è qualche modo per ottimizzare il codice?
Grazie in ogni caso per tutti gli spunti utilissimi che ho trovato in questo meraviglioso sito.
