Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
unexpected problem in VBA Code
Hi, below is most of my code that i am writing for an
automation email to be sent from excel. i've put the (#) before the code for clarification purposes. ...my slight problem... the code right now as written runs fine, its sent, formated correctly, what i want, now line 6 & 8 are commented, but i want them to be part of the message, but when i uncomment them, line 13 returns an error, i cannot for the life of me, figure out the problem, so if anyone could help or suggest anything it would be truely appreicated. and if you need the top part of the code then just ask, thanks in advance. ~q (1)Msg = Msg & "Please note that the referenced award will expire on: " & Cells(r, 2) & vbCrLf & vbCrLf 'Insert End Date (2)Msg = Msg & "If you require a no-cost extension to complete the work under this award, and" & vbCrLf (3)Msg = Msg & "have not already requested an extension via the ARL Business Office, please" & vbCrLf (4)Msg = Msg & "contact the contract administrator identified above at least three (3) weeks" & vbCrLf (5)Msg = Msg & "end date to do so. If you have already begun that process," & vbCrLf & vbCrLf (6)'Msg = Msg & "please disregard this reminder." & vbCrLf (7)Msg = Msg & "Thank you." & vbCrLf & "The Business Office" & vbCrLf (8)'Msg = Msg & "If you have any questions please reply to this email." (9)'Format URL to work with Mail program by replacing spaces with %20 and returns with %0D%0A Subj = Application.WorksheetFunction.Substitute (Subj, " ", "%20") (10)Msg = Application.WorksheetFunction.Substitute (Msg, " ", "%20") (11)Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A") (12)'Create the URL URL = "mailto:" & email & "?subject=" & Subj & "&body=" & Msg (13)'Execute the URL ie. Start the Mail client ActiveWorkbook.FollowHyperlink Address:=URL, NewWindow:=True (14)'Wait a few seconds ... Application.Wait (Now + TimeValue("0:00:05")) Application.SendKeys "%s" (15)Next r (16)End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
unexpected problem in VBA Code
oh yeah, you might want to know what the error is, its:
Run-time error '5': Invalid procedure call or argument thanks in advance again |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code problem | Excel Discussion (Misc queries) | |||
Alt Code Problem | Excel Discussion (Misc queries) | |||
Code problem | Excel Discussion (Misc queries) | |||
Problem with code | Excel Discussion (Misc queries) | |||
Code Problem ! | Excel Programming |