Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100644 39 lines (28 sloc) 0.943 kB
fc6bdfe Initial Versions, current as of 06/30/11
unknown authored
1 Option Explicit
2 Global TweetFeed As Tweet
3
4 Private Sub MainText()
5
6 'setup in beginning
7 If Range("TweetOn") = True Then
8 Set TweetFeed = New Tweet
9 SetupTweet
10 End If
11
12 'error messaging
13 On Error GoTo SendTweet
14
15 For i = 1 To 100
16
17 'call successive looping tweet
18 If Range("TweetOn") = True Then
19 TweetFeed.SendTweetAtTweetFreq "Model running succesfully at time " & Now()
20 End If
21
22 Next i
23
24 'send completion tweet
25 TweetFeed.SendTweet "Model complete!"
26
27 Exit Sub
28 SentTweet:
29 TweetFeed.Tweet "Error!"
30 End Sub
31
32 Private Sub SetupTweet()
33 Set TweetFeed = New Tweet
34 TweetFeed.TweetDir = MakeDirString(Range("TweetDir")) ' "C:\Program Files\tweet"
35 TweetFeed.TweetEXE = Range("TweetEXE") ' "tweet.exe"
36 TweetFeed.TweetFrequency = Range("TweetFrequency") ' "00:00:15"
37 End Sub
38
Something went wrong with that request. Please try again.