I was going to use this one but wasn't sure about the 'attachments.add code. Do I delete this since there won't be a file to reference. The attachments are digital photos that will be download from a card reader. I'm just learning VB so I wasn't sure exactly what this code was doing. I'm not familiar with all the codes yet.

Denise

-----Original Message-----
Which part of that link are you using. In this part:

Sub Mail_ActiveSheet_Outlook()
'You must add a reference to the Microsoft outlook Library
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy h-mm-ss")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.To = "
.CC = ""
.BCC = ""
.Subject = "This is the Subject line"
.Body = "Hi there"
.Attachments.Add wb.FullName
'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

See where the line says
.Send 'or use .Display

Change .Send to .Display

--
Regards,
Tom Ogilvy


Denise Posey wrote in message
...
See post from Jan 29 2004 4:52PM

thank you Rob for the following link:
Look here Denise
http://www.rondebruin.nl/sendmail.htm

I'm sure I'm missing something but is there an example where the code stops
in Outlook to the "body" and not automatically send? I need to stop in the
body to physically attach digital photos & then click the "send". Once you
click the "send", return to the the active worksheet.

Thanks,
Denise


.