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

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

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


.

If you don't want an attachment, then you can remove that line - however,
you don't have to attach a workbook. You could use that code to attach you
digital photos or not - then add them by hand.

--
Regards,
Tom Ogilvy


denise posey wrote in message
...
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


.

Since I am still a beginner at Vb, can you tell me the modification to the code?

I appreciate you patience!
Denise
-----Original Message-----
If you don't want an attachment, then you can remove that line - however,
you don't have to attach a workbook. You could use that code to attach you
digital photos or not - then add them by hand.

--
Regards,
Tom Ogilvy


denise posey wrote in message
...
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


.



.

Hi Denise,

Thanks for posting in the group.

I have reviewed this thread. Currently I am finding somebody who could help
you on it. We will post back in the newsgroup as soon as possible.

If there is anything unclear, please feel free to post in the group and we
will follow up there.

Thank you for using Microsoft Newsgroup!

Wei-Dong XU
Microsoft Developer Support

If you don't want to attach a file, remove or comment out the line that says

.Attachments.Add wb.FullName

--
Regards,
Tom Ogilvy


"Denise Posey" wrote in message
...
Since I am still a beginner at Vb, can you tell me the modification to the
code?

I appreciate you patience!
Denise
-----Original Message-----
If you don't want an attachment, then you can remove that line - however,
you don't have to attach a workbook. You could use that code to attach you
digital photos or not - then add them by hand.

--
Regards,
Tom Ogilvy


denise posey wrote in message
...
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


.



.

Hi Denise,

Thanks for posting in the community.

It will be appreciated you could tell me whether this issue has been
resolved.

Please feel free to let me know if you have any further question on this
issue. I am standing by to be of assistance.


Best regards,

Peter Huang
Microsoft Online Partner Support

Get Secure! - www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.