Email Error

[mburkett]

I am getting a 'General Mail Failure' at the following line. It is
supposed to email the active file. The funny thing is it works 100% on
3 of the 4 comptuters at work and 75% of the time on the 4th. Sometimes
a reboot will get in back running properly on the 4th computer, other
times not. I can not seem to narrow down any significant difference in
the computers. Any idea where to start looking?

Code the error occurs:
Application.Dialogs(xlDialogSendMail).Show
Arg1:="(e-mail address removed)", Arg2:="E-Mail Order for Account " +
acctname2



Here is the whole macro:
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Trade Sheet").Select
Range("p3").Select
acctname = Selection.Value
Range("g2").Select
acctname2 = Selection.Value

Columns("A:G").Select
Selection.Copy
Workbooks.Open Filename:="C:\MODEL\Trading\blk trd ticket.xls"
Range("a1").Select
ActiveSheet.Paste

Windows("STOCKS.xls").Activate
Range("G4").Select
Selection.Copy

Windows("blk trd ticket.xls").Activate
Range("G4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells.Select

Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("A7:G108").Select
Range("G7").Activate
Application.CutCopyMode = False
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<>"
Selection.Sort Key1:=Range("A8"), Order1:=xlDescending,
Key2:=Range("B8") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=1,
MatchCase:=False _
, Orientation:=xlTopToBottom

ActiveWorkbook.SaveAs Filename:="F:\MODEL\Trading\Email Tickets\" +
acctname + ".xls", FileFormat _
:=xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:= _
False, CreateBackup:=False

Range("a1").Activate

Application.Dialogs(xlDialogSendMail).Show
Arg1:="(e-mail address removed)", Arg2:="E-Mail Order for Account " +
acctname2

Workbooks(acctname + ".xls").Close SaveChanges:=False
Windows("STOCKS.xls").Activate
ActiveSheet.AutoFilterMode = False


Thank you for any help you can provide.

 

[Ron de Bruin]

Hi mburkett

Check out
http://www.rondebruin.nl/mail/problems.htm

Post back if this help you or not

 

[mburkett]

Hi mburkett

Check outhttp://www.rondebruin.nl/mail/problems.htm

Post back if this help you or not

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm












- Show quoted text -

This solved the problem. Thank you for your help

 

[Guest]

None of these solved my problems. Any new ideas?

 

[Ron de Bruin]

More information please

Excel version ?
Errors ?
Mail program ?

 

[mburkett]

More information please

Excel version ?
Errors ?
Mail program ?

--

Regards Ron de Bruinhttp://www.rondebruin.nl/tips.htm






- Show quoted text -

Excel Version: 2003
Errors: None now. I can't remember the exact error message from before
but it was termed "General Mail Error"
Mail Program: Outlook 2003