Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
my company recently switched my excel and outlook. My previous versions are
Excel/2000 9.0.0.6627 SP3 Outlook/2000 9.0.6926 SP3. My new versions are xcel/2003 11.6355.6360 SP1 Outlook/2003 11.6359.6360 SP1. the macro/vba below worked fine with the previous versions. Now with the new version, the email that is generated when the macro is executed appears to truncate the number of characters on the line of the email. In the previous version, I could send 1200 + characters on a line of the email. Now, the limit appears to be around 200. I would appreciate any thoughts and suggestions to resolve my problem. Thank you in advance. Sub stamp3() ' ' stamp3 Macro ' carl ' ' If ActiveSheet.FilterMode Then MsgBox "Please Unfilter Column First" If ActiveSheet.FilterMode Then Exit Sub End If Sheets("trading").Select Range("D2:D14").Select Selection.Copy Sheets("mail").Select Range("C2").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ True, Transpose:=False Sheets("mail").Select Range("A7:C7").Select Selection.Copy Sheets("strings").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Sheets("trading").Select Range("D2").Select Range("I16").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ActiveWindow.ScrollRow = 1 Range("J16").Select Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Calculate Sheets("mail").Select Application.Goto Reference:="R1C2" 'Sub Mail_ActiveSheet_Body() Dim OutApp As Outlook.Application Dim OutMail As Outlook.MailItem Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem) With OutMail .To = " .CC = " .BCC = "" .Subject = Sheets("trading").Range("A11").Value .HTMLBody = SheetToHTML(ActiveSheet) .Send 'or use .Display End With Application.ScreenUpdating = True Set OutMail = Nothing Set OutApp = Nothing Sheets("trading").Range("A11").Value = Sheets("trading").Range("A11").Value + 1 Sheets("trading").Select End Sub |
#2
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
Nel post
*carl* ha scritto: my company recently switched my excel and outlook. My previous versions are Excel/2000 9.0.0.6627 SP3 Outlook/2000 9.0.6926 SP3. My new versions are xcel/2003 11.6355.6360 SP1 Outlook/2003 11.6359.6360 SP1. the macro/vba below worked fine with the previous versions. Now with the new version, the email that is generated when the macro is executed appears to truncate the number of characters on the line of the email. In the previous version, I could send 1200 + characters on a line of the email. Now, the limit appears to be around 200. [cut] Hi Carl, First of all I think you should update your version of Outlook and Excel with Service Pack 2, second for sending e-mail from Excel, take a look he http://www.rondebruin.nl/sendmail.htm -- (I'm not sure of names of menus, options and commands, because translating from the Italian version of Excel...) Hope I helped you. Thanks in advance for your feedback. Ciao Franz Verga from Italy |
#3
![]()
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
![]()
Thank you. Ron helped with my original problem. Hopefully he'll see this post.
"Franz Verga" wrote: Nel post *carl* ha scritto: my company recently switched my excel and outlook. My previous versions are Excel/2000 9.0.0.6627 SP3 Outlook/2000 9.0.6926 SP3. My new versions are xcel/2003 11.6355.6360 SP1 Outlook/2003 11.6359.6360 SP1. the macro/vba below worked fine with the previous versions. Now with the new version, the email that is generated when the macro is executed appears to truncate the number of characters on the line of the email. In the previous version, I could send 1200 + characters on a line of the email. Now, the limit appears to be around 200. [cut] Hi Carl, First of all I think you should update your version of Outlook and Excel with Service Pack 2, second for sending e-mail from Excel, take a look he http://www.rondebruin.nl/sendmail.htm -- (I'm not sure of names of menus, options and commands, because translating from the Italian version of Excel...) Hope I helped you. Thanks in advance for your feedback. Ciao Franz Verga from Italy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|