' Richard A. DeVenezia, 1/18/2004 Dim uga, now, rest, sh uga = "https://listserv.uga.edu/cgi-bin/wa?" now = "A1=ind" _ & Right(Year(Date),2) _ & Right("0"&Month(Date),2) _ & Chr (97 + (Day(Date)-1) \ 7) rest = "&L=sas-l&O=D&H=0&D=1&T=1" set sh = CreateObject ("WScript.Shell") sh.Run uga & now & rest, 1, False