Kvittering til en anden email adresse
Jeg har med en del held fået sammensat nedstående makro, til kun at sende 1 ark i en Excel-fil. Når arket så bliver sendt, modtager jeg en kvittering fra modtageren af email'en. Mit spørgsmål er så om det er muligt at få kvitteringen sendt til en anden email adresse?Sub Makro()
Sheets("Ark1").Select
Sheets("Ark1").Name = "Ark1"
Sheets("Ark1").Select
Sheets("Ark1").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="C:\Ark1.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False, AccessMode:=True
ActiveWorkbook.Sendmail _
Recipients:=Array("email@email.dk", "test@test.dk"), _
Subject:="testing", _
ReturnReceipt:=True
Application.DisplayAlerts = True
ActiveWindow.Close SaveChanges:=False
End Sub
