Mail batch

[RichieL]

Goedemiddag

Ik probeer met bijgevoegde voorbeeld een mail batch te maken, wanneer ik het script activeer (Sheet: Bevestiging)

Verwacht resultaat: mailen in batch, met pdf bestand

De eerste gaat goed, maar wanneer hij naar de volgende regel, email gaan geeft hij een foutmelding op .Email.

ONderstaande code staat in Module 1;

Sub BevestigingEmailPDFBatch()

Dim EApp As Object
Set EApp = CreateObject("Outlook.Application")

Dim EItem As Object
Set EItem = EApp.CreateItem(0)

Dim ConfNr As Long
Dim Custname As String
Dim Supplname As String
Dim Salesp As String
Dim Email As String
Dim EmailCC As String
Dim dt_issue As Date
Dim Path As String
Dim fname As String
Dim Subj As String
Dim Prod As String
Dim nextrec As Range
Dim AddPhoto As String
Dim AddBartender As String

ConfNr = Range("I10")
Custname = Range("I9")
Supplname = Range("I5")
Salesp = Range("I6")
Subj = Range("I8")
dt_issue = Range("I11")
Email = Range("I7")
EmailCC = Range("T3")
Prod = Range("T7")
AddPhoto = Range("T4")
AddBartender = Range("T5")
Path = "G:\test\"
fname = ConfNr & "_" & Custname & "_" & Prod
  
 
  ar = Cells(3, 1).CurrentRegion
  For j = 1 To UBound(ar)
    If ar(j, 1) <> 0 Then
      Range("D1").Value = ar(j, 1)
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, ignoreprintareas:=False, Filename:=Path & fname
      

Set nextrec = Sheets("BEVEST").Range("A1048576").End(xlUp).Offset(1, 0)

nextrec = ConfNr
nextrec.Offset(0, 1) = Custname
nextrec.Offset(0, 2) = Prod
nextrec.Offset(0, 3) = Supplname
nextrec.Offset(0, 4) = Salesp
nextrec.Offset(0, 5) = Email
nextrec.Offset(0, 7) = Now

Sheets("BEVEST").Hyperlinks.Add anchor:=nextrec.Offset(0, 6), Address:=Path & fname & ".pdf"

ActiveWorkbook.Save
'ActiveWorkbook.Close (normaal word er in een extern bestand een loggemaakt, vandaar de '

With EItem
    .To = Email
    .CC = EmailCC
    .Subject = "Confirmation nr: " & ConfNr
    .Body = "Hoi " & vbLf & vbLf _
     & "Bijgevoegd de bevestiging voor:" & vbLf _
     & "Product:" & vbTab & Prod & vbLf _
     & "Klant:" & vbTab & Custname & vbLf & vbLf _
     & "Met vriendelijke groet," & vbLf & vbLf _
     & Application.UserName & vbLf _
     
    .Attachments.Add (Path & fname & ".pdf")
       
       If Range("P4").Value = "1" Then
         .Attachments.Add (AddPhoto)
       Else
       End If

       If Range("P5").Value = "1" Then
         .Attachments.Add (AddBartender)
       Else
       End If
       
    .Send
      
End With

     End If
  Next j
End Sub

Wat gaat, staat er verkeerd om de Batch goed te laten verlopen?