felpslima
09-17-2010, 10:37 AM
Hi there, i'm trying to send via a single e-mail, two worksheets (1 and 3) to a specific e-mail.
Currently i'm using a code that sends only one sheet per e-mail.
Can you help me?
What I have right now is:
Sub emailalge()
ThisWorkbook.Sheets(3).Copy
With ActiveWorkbook
.SendMail Recipients:="email@email.com (email@email.com)_
Subject:="e-mail " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Sub
thanks!
Currently i'm using a code that sends only one sheet per e-mail.
Can you help me?
What I have right now is:
Sub emailalge()
ThisWorkbook.Sheets(3).Copy
With ActiveWorkbook
.SendMail Recipients:="email@email.com (email@email.com)_
Subject:="e-mail " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With
End Sub
thanks!