Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Mail Single sheet as HTML(HTM) file
Hello everyone! I have a working macro, which sends a single sheet from the workbook t the following mail receipients. E-mail addresses are specified in th sheet with customer list. I need an upgrade. I want to send not an .xls file, but a .htm file. What changes should I do? How to make excel export single sheet an save it as htm file, then e-mail it? P.S. How to remove an Outlook Express warning "Would you like to sen the message?" I have to press SEND every time I e-mail something. Great thanks to all who are able to help. Macro code is: Sub Mail_ActiveSheet() For a = Cells(4, 3).Value To Cells(4, 4).Value ( Rows(a).Select Selection.Copy Rows("1:1").Select Application.ActiveSheet.Paste If Cells(1, 15).Value < "" Then Sheets("kl sar orig").Select d = Cells(1, 15).Value Sheets("sheet_to_mail").Select b = Cells(15, 5).Value c = Cells(15, 6).Value 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 "Vartotojui " & ThisWorkbook.Name _ & " " & strdate & a & ".xls" Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone SkipBlanks _ :=False, Transpose:=False .Sendmail d, _ & b & " iki " & c .ChangeFileAccess xlReadOnly Kill .FullName .Close True End With Else End If Sheets("kl sar orig").Select Application.ScreenUpdating = True Next a End Su -- arg ----------------------------------------------------------------------- argi's Profile: http://www.excelforum.com/member.php...fo&userid=2432 View this thread: http://www.excelforum.com/showthread.php?threadid=37930 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Mail Single sheet as HTML(HTM) file
You can't do this with SendMail
If you use Outlook then you can attach a htm file to the mail Do you use that ? If you want a example post back -- Regards Ron de Bruin http://www.rondebruin.nl "argi" wrote in message ... Hello everyone! I have a working macro, which sends a single sheet from the workbook to the following mail receipients. E-mail addresses are specified in the sheet with customer list. I need an upgrade. I want to send not an .xls file, but a .htm file. What changes should I do? How to make excel export single sheet and save it as htm file, then e-mail it? P.S. How to remove an Outlook Express warning "Would you like to send the message?" I have to press SEND every time I e-mail something. Great thanks to all who are able to help. Macro code is: Sub Mail_ActiveSheet() For a = Cells(4, 3).Value To Cells(4, 4).Value ( Rows(a).Select Selection.Copy Rows("1:1").Select Application.ActiveSheet.Paste If Cells(1, 15).Value < "" Then Sheets("kl sar orig").Select d = Cells(1, 15).Value Sheets("sheet_to_mail").Select b = Cells(15, 5).Value c = Cells(15, 6).Value 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 "Vartotojui " & ThisWorkbook.Name _ & " " & strdate & a & ".xls" Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sendmail d, _ & b & " iki " & c ChangeFileAccess xlReadOnly Kill .FullName Close True End With Else End If Sheets("kl sar orig").Select Application.ScreenUpdating = True Next a End Sub -- argi ------------------------------------------------------------------------ argi's Profile: http://www.excelforum.com/member.php...o&userid=24329 View this thread: http://www.excelforum.com/showthread...hreadid=379309 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Mail Single sheet as HTML(HTM) file
Please give an example -- arg ----------------------------------------------------------------------- argi's Profile: http://www.excelforum.com/member.php...fo&userid=2432 View this thread: http://www.excelforum.com/showthread.php?threadid=37930 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Mail Single sheet as HTML(HTM) file
Try this example
Sub Mail_ActiveSheet_Outlook() Dim OutApp As Object Dim OutMail As Object 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, FileFormat:=xlHtml Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) 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") .display 'or use .Display End With .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With Application.ScreenUpdating = True Set OutMail = Nothing Set OutApp = Nothing End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "argi" wrote in message ... Please give an example. -- argi ------------------------------------------------------------------------ argi's Profile: http://www.excelforum.com/member.php...o&userid=24329 View this thread: http://www.excelforum.com/showthread...hreadid=379309 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I e-mail one Excel sheet to arrive NOT in HTML | Excel Discussion (Misc queries) | |||
Pasting HTML into a single cell | Excel Discussion (Misc queries) | |||
Save single sheet from XLS file as HTML | Excel Discussion (Misc queries) | |||
Mail a singel sheet i an xls file. | Excel Discussion (Misc queries) | |||
Can you save a single sheet directly to a new file | Excel Worksheet Functions |