API tools faq
paste
View difference between Paste ID: 2mccGjKi and dcfuH7nA
SHOW: | | - or go back to the newest paste.
1
Dim num As Integer = 0
2
        For intLoopIndex = 0 To Convert.ToInt32(TextBox5.Text)
3
            Dim mail As New MailMessage()
4
            Dim SmtpServer As New SmtpClient
5
            SmtpServer.Credentials = New Net.NetworkCredential(TextBox3.Text, TextBox4.Text) ' I've added the option to add your own email credentials via textboxes, although you can just add them here, and you don't have to enter it later. Whatever you wish.
6
            SmtpServer.Port = 587
7
            SmtpServer.Host = "smtp.gmail.com" 'Google mail's smtp server, you can change it over to hotmail, or whatever the hell you want, Google is one of the more commonly known ones.
8
            SmtpServer.EnableSsl = True
9
            If ComboBox1.SelectedItem = "AT&T" Then
10
                mail.To.Add(TextBox1.Text + "@txt.att.net")
11
                mail.From = New MailAddress(TextBox3.Text)
12
                mail.Subject = TextBox2.Text
13
                mail.Body = RichTextBox1.Text
14
                SmtpServer.Send(mail)
15
            ElseIf ComboBox1.SelectedItem = "Movistar" Then
16
                mail.To.Add(TextBox1.Text + "@movistar.com.co")
17
                mail.From = New MailAddress(TextBox3.Text)
18
                mail.Subject = TextBox2.Text
19
                mail.Body = RichTextBox1.Text
20
                SmtpServer.Send(mail)
21
            ElseIf ComboBox1.SelectedItem = "MTN" Then
22
                mail.To.Add(TextBox1.Text + "@sms.co.za")
23
                mail.From = New MailAddress(TextBox3.Text)
24
                mail.Subject = TextBox2.Text
25
                mail.Body = RichTextBox1.Text
26
                SmtpServer.Send(mail)
27
            ElseIf ComboBox1.SelectedItem = "MTS" Then
28
                mail.To.Add(TextBox1.Text + "@text.mtsmobility.com")
29
                mail.From = New MailAddress(TextBox3.Text)
30
                mail.Subject = TextBox2.Text
31
                mail.Body = RichTextBox1.Text
32
                SmtpServer.Send(mail)
33
            ElseIf ComboBox1.SelectedItem = "Nextel (United States)" Then
34
                mail.To.Add(TextBox1.Text + "@messaging.nextel.com")
35
                mail.From = New MailAddress(TextBox3.Text)
36
                mail.Subject = TextBox2.Text
37
                mail.Body = RichTextBox1.Text
38
                SmtpServer.Send(mail)
39
            ElseIf ComboBox1.SelectedItem = "Nextel (Argentina)" Then
40
                mail.To.Add(TextBox1.Text + "@nextel.net.ar")
41
                mail.From = New MailAddress(TextBox3.Text)
42
                mail.Subject = TextBox2.Text
43
                mail.Body = RichTextBox1.Text
44
                SmtpServer.Send(mail)
45
            ElseIf ComboBox1.SelectedItem = "Orange Polska" Then
46
                mail.To.Add(TextBox1.Text + "@orange.pl")
47
                mail.From = New MailAddress(TextBox3.Text)
48
                mail.Subject = TextBox2.Text
49
                mail.Body = RichTextBox1.Text
50
                SmtpServer.Send(mail)
51
            ElseIf ComboBox1.SelectedItem = "Personal" Then
52
                mail.To.Add(TextBox1.Text + "@alertas.personal.com.ar")
53
                mail.From = New MailAddress(TextBox3.Text)
54
                mail.Subject = TextBox2.Text
55
                mail.Body = RichTextBox1.Text
56
                SmtpServer.Send(mail)
57
            ElseIf ComboBox1.SelectedItem = "Plus GSM" Then
58
                mail.To.Add(TextBox1.Text + "@text.plusgsm.pl")
59
                mail.From = New MailAddress(TextBox3.Text)
60
                mail.Subject = TextBox2.Text
61
                mail.Body = RichTextBox1.Text
62
                SmtpServer.Send(mail)
63
            ElseIf ComboBox1.SelectedItem = "President’s Choice" Then
64
                mail.To.Add(TextBox1.Text + "@txt.bell.ca")
65
                mail.From = New MailAddress(TextBox3.Text)
66
                mail.Subject = TextBox2.Text
67
                mail.Body = RichTextBox1.Text
68
                SmtpServer.Send(mail)
69
            ElseIf ComboBox1.SelectedItem = "Qwest" Then
70
                mail.To.Add(TextBox1.Text + "@qwestmp.com")
71
                mail.From = New MailAddress(TextBox3.Text)
72
                mail.Subject = TextBox2.Text
73
                mail.Body = RichTextBox1.Text
74
                SmtpServer.Send(mail)
75
            ElseIf ComboBox1.SelectedItem = "Rogers" Then
76
                mail.To.Add(TextBox1.Text + "@pcs.rogers.com")
77
                mail.From = New MailAddress(TextBox3.Text)
78
                mail.Subject = TextBox2.Text
79
                mail.Body = RichTextBox1.Text
80
                SmtpServer.Send(mail)
81
            ElseIf ComboBox1.SelectedItem = "SL Interactive" Then
82
                mail.To.Add(TextBox1.Text + "@slinteractive.com.au")
83
                mail.From = New MailAddress(TextBox3.Text)
84
                mail.Subject = TextBox2.Text
85
                mail.Body = RichTextBox1.Text
86
                SmtpServer.Send(mail)
87
            ElseIf ComboBox1.SelectedItem = "Sasktel" Then
88
                mail.To.Add(TextBox1.Text + "@sms.sasktel.com")
89
                mail.From = New MailAddress(TextBox3.Text)
90
                mail.Subject = TextBox2.Text
91
                mail.Body = RichTextBox1.Text
92
                SmtpServer.Send(mail)
93
            ElseIf ComboBox1.SelectedItem = "Setar Mobile email (Aruba)" Then
94
                mail.To.Add(TextBox1.Text + "@mas.aw")
95
                mail.From = New MailAddress(TextBox3.Text)
96
                mail.Subject = TextBox2.Text
97
                mail.Body = RichTextBox1.Text
98
                SmtpServer.Send(mail)
99
            ElseIf ComboBox1.SelectedItem = "Suncom" Then
100
                mail.To.Add(TextBox1.Text + "@tms.suncom.com")
101
                mail.From = New MailAddress(TextBox3.Text)
102
                mail.Subject = TextBox2.Text
103
                mail.Body = RichTextBox1.Text
104
                SmtpServer.Send(mail)
105
            ElseIf ComboBox1.SelectedItem = "T-Mobile (Austria)" Then
106
                mail.To.Add(TextBox1.Text + "@sms.t-mobile.at")
107
                mail.From = New MailAddress(TextBox3.Text)
108
                mail.Subject = TextBox2.Text
109
                mail.Body = RichTextBox1.Text
110
                SmtpServer.Send(mail)
111
            ElseIf ComboBox1.SelectedItem = "T-Mobile (UK)" Then
112
                mail.To.Add(TextBox1.Text + "@t-mobile.uk.net")
113
                mail.From = New MailAddress(TextBox3.Text)
114
                mail.Subject = TextBox2.Text
115
                mail.Body = RichTextBox1.Text
116
                SmtpServer.Send(mail)
117
            ElseIf ComboBox1.SelectedItem = "Telus Mobility" Then
118
                mail.To.Add(TextBox1.Text + "@msg.telus.com")
119
                mail.From = New MailAddress(TextBox3.Text)
120
                mail.Subject = TextBox2.Text
121
                mail.Body = RichTextBox1.Text
122
                SmtpServer.Send(mail)
123
            ElseIf ComboBox1.SelectedItem = "Thumb Cellular" Then
124
                mail.To.Add(TextBox1.Text + "@sms.thumbcellular.com")
125
                mail.From = New MailAddress(TextBox3.Text)
126
                mail.Subject = TextBox2.Text
127
                mail.Body = RichTextBox1.Text
128
                SmtpServer.Send(mail)
129
            ElseIf ComboBox1.SelectedItem = "Tigo (Formerly Ola)" Then
130
                mail.To.Add(TextBox1.Text + "@sms.tigo.com.co")
131
                mail.From = New MailAddress(TextBox3.Text)
132
                mail.Subject = TextBox2.Text
133
                mail.Body = RichTextBox1.Text
134
                SmtpServer.Send(mail)
135
            ElseIf ComboBox1.SelectedItem = "Tracfone (prepaid)" Then
136
                mail.To.Add(TextBox1.Text + "@mmst5.tracfone.com")
137
                mail.From = New MailAddress(TextBox3.Text)
138
                mail.Subject = TextBox2.Text
139
                mail.Body = RichTextBox1.Text
140
                SmtpServer.Send(mail)
141
            ElseIf ComboBox1.SelectedItem = "Unicel" Then
142
                mail.To.Add(TextBox1.Text + "@utext.com")
143
                mail.From = New MailAddress(TextBox3.Text)
144
                mail.Subject = TextBox2.Text
145
                mail.Body = RichTextBox1.Text
146
                SmtpServer.Send(mail)
147
            ElseIf ComboBox1.SelectedItem = "Virgin Mobile (Canada)" Then
148
                mail.To.Add(TextBox1.Text + "@vmobile.ca")
149
                mail.From = New MailAddress(TextBox3.Text)
150
                mail.Subject = TextBox2.Text
151
                mail.Body = RichTextBox1.Text
152
                SmtpServer.Send(mail)
153
            ElseIf ComboBox1.SelectedItem = "Vodacom (South Africa)" Then
154
                mail.To.Add(TextBox1.Text + "@voda.co.za")
155
                mail.From = New MailAddress(TextBox3.Text)
156
                mail.Subject = TextBox2.Text
157
                mail.Body = RichTextBox1.Text
158
                SmtpServer.Send(mail)
159
            ElseIf ComboBox1.SelectedItem = "Vodafone (Italy)" Then
160
                mail.To.Add(TextBox1.Text + "@sms.vodafone.it")
161
                mail.From = New MailAddress(TextBox3.Text)
162
                mail.Subject = TextBox2.Text
163
                mail.Body = RichTextBox1.Text
164
                SmtpServer.Send(mail)
165
            ElseIf ComboBox1.SelectedItem = "YCC" Then
166
                mail.To.Add(TextBox1.Text + "@sms.ycc.ru")
167
                mail.From = New MailAddress(TextBox3.Text)
168
                mail.Subject = TextBox2.Text
169
                mail.Body = RichTextBox1.Text
170
                SmtpServer.Send(mail)
171
            ElseIf ComboBox1.SelectedItem = "MobiPCS (Hawaii only)" Then
172
                mail.To.Add(TextBox1.Text + "@mobipcs.net")
173
                mail.From = New MailAddress(TextBox3.Text)
174
                mail.Subject = TextBox2.Text
175
                mail.Body = RichTextBox1.Text
176
                SmtpServer.Send(mail)
177
            ElseIf ComboBox1.SelectedItem = "Claro (Brasil)" Then
178
                mail.To.Add(TextBox1.Text + "@clarotorpedo.com.br")
179
                mail.From = New MailAddress(TextBox3.Text)
180
                mail.Subject = TextBox2.Text
181
                mail.Body = RichTextBox1.Text
182
                SmtpServer.Send(mail)
183
            ElseIf ComboBox1.SelectedItem = "Claro (Nicaragua)" Then
184
                mail.To.Add(TextBox1.Text + "@ideasclaro-ca.com")
185
                mail.From = New MailAddress(TextBox3.Text)
186
                mail.Subject = TextBox2.Text
187
                mail.Body = RichTextBox1.Text
188
                SmtpServer.Send(mail)
189
            ElseIf ComboBox1.SelectedItem = "Comcel" Then
190
                mail.To.Add(TextBox1.Text + "@comcel.com.co")
191
                mail.From = New MailAddress(TextBox3.Text)
192
                mail.Subject = TextBox2.Text
193
                mail.Body = RichTextBox1.Text
194
                SmtpServer.Send(mail)
195
            ElseIf ComboBox1.SelectedItem = "Cricket" Then
196
                mail.To.Add(TextBox1.Text + "@sms.mycricket.com (SMS)")
197
                mail.From = New MailAddress(TextBox3.Text)
198
                mail.Subject = TextBox2.Text
199
                mail.Body = RichTextBox1.Text
200
                SmtpServer.Send(mail)
201
            ElseIf ComboBox1.SelectedItem = "Cricket" Then
202
                mail.To.Add(TextBox1.Text + "@sms.mycricket.com")
203
                mail.From = New MailAddress(TextBox3.Text)
204
                mail.Subject = TextBox2.Text
205
                mail.Body = RichTextBox1.Text
206
                SmtpServer.Send(mail)
207
            ElseIf ComboBox1.SelectedItem = "Globalstar (satellite)" Then
208
                mail.To.Add(TextBox1.Text + "@msg.globalstarusa.com")
209
                mail.From = New MailAddress(TextBox3.Text)
210
                mail.Subject = TextBox2.Text
211
                mail.Body = RichTextBox1.Text
212
                SmtpServer.Send(mail)
213
            ElseIf ComboBox1.SelectedItem = "Helio" Then
214
                mail.To.Add(TextBox1.Text + "@messaging.sprintpcs.com")
215
                mail.From = New MailAddress(TextBox3.Text)
216
                mail.Subject = TextBox2.Text
217
                mail.Body = RichTextBox1.Text
218
                SmtpServer.Send(mail)
219
            ElseIf ComboBox1.SelectedItem = "Illinois Valley Cellular" Then
220
                mail.To.Add(TextBox1.Text + "@ivctext.com")
221
                mail.From = New MailAddress(TextBox3.Text)
222
                mail.Subject = TextBox2.Text
223
                mail.Body = RichTextBox1.Text
224
                SmtpServer.Send(mail)
225
            ElseIf ComboBox1.SelectedItem = "Iridium (satellite)" Then
226
                mail.To.Add(TextBox1.Text + "@msg.iridium.com")
227
                mail.From = New MailAddress(TextBox3.Text)
228
                mail.Subject = TextBox2.Text
229
                mail.Body = RichTextBox1.Text
230
                SmtpServer.Send(mail)
231
            ElseIf ComboBox1.SelectedItem = "Iusacell" Then
232
                mail.To.Add(TextBox1.Text + "@rek2.com.mx")
233
                mail.From = New MailAddress(TextBox3.Text)
234
                mail.Subject = TextBox2.Text
235
                mail.Body = RichTextBox1.Text
236
                SmtpServer.Send(mail)
237
            ElseIf ComboBox1.SelectedItem = "i wireless" Then
238
                mail.To.Add(TextBox1.Text + "@iwspcs.net")
239
                mail.From = New MailAddress(TextBox3.Text)
240
                mail.Subject = TextBox2.Text
241
                mail.Body = RichTextBox1.Text
242
                SmtpServer.Send(mail)
243
            ElseIf ComboBox1.SelectedItem = "Koodo Mobile" Then
244
                mail.To.Add(TextBox1.Text + "@msg.koodomobile.com")
245
                mail.From = New MailAddress(TextBox3.Text)
246
                mail.Subject = TextBox2.Text
247
                mail.Body = RichTextBox1.Text
248
                SmtpServer.Send(mail)
249
            ElseIf ComboBox1.SelectedItem = "Airtel (Karnataka, India)" Then
250
                mail.To.Add(TextBox1.Text + "@airtelkk.com")
251
                mail.From = New MailAddress(TextBox3.Text)
252
                mail.Subject = TextBox2.Text
253
                mail.Body = RichTextBox1.Text
254
                SmtpServer.Send(mail)
255
            ElseIf ComboBox1.SelectedItem = "Airtel Wireless (Montana, USA)" Then
256
                mail.To.Add(TextBox1.Text + "@sms.airtelmontana.com")
257
                mail.From = New MailAddress(TextBox3.Text)
258
                mail.Subject = TextBox2.Text
259
                mail.Body = RichTextBox1.Text
260
                SmtpServer.Send(mail)
261
            ElseIf ComboBox1.SelectedItem = "CTI" Then
262
                mail.To.Add(TextBox1.Text + "@sms.ctimovil.com.ar")
263
                mail.From = New MailAddress(TextBox3.Text)
264
                mail.Subject = TextBox2.Text
265
                mail.Body = RichTextBox1.Text
266
                SmtpServer.Send(mail)
267
            ElseIf ComboBox1.SelectedItem = "Emtel" Then
268
                mail.To.Add(TextBox1.Text + "@emtelworld.net")
269
                mail.From = New MailAddress(TextBox3.Text)
270
                mail.Subject = TextBox2.Text
271
                mail.Body = RichTextBox1.Text
272
                SmtpServer.Send(mail)
273
            ElseIf ComboBox1.SelectedItem = "Fido" Then
274
                mail.To.Add(TextBox1.Text + "@fido.ca")
275
                mail.From = New MailAddress(TextBox3.Text)
276
                mail.Subject = TextBox2.Text
277
                mail.Body = RichTextBox1.Text
278
                SmtpServer.Send(mail)
279
            ElseIf ComboBox1.SelectedItem = "General Communications Inc." Then
280
                mail.To.Add(TextBox1.Text + "@msg.gci.net")
281
                mail.From = New MailAddress(TextBox3.Text)
282
                mail.Subject = TextBox2.Text
283
                mail.Body = RichTextBox1.Text
284
                SmtpServer.Send(mail)
285
            ElseIf ComboBox1.SelectedItem = "Bell Mobility & Solo Mobile" Then
286
                mail.To.Add(TextBox1.Text + "@txt.bell.ca")
287
                mail.From = New MailAddress(TextBox3.Text)
288
                mail.Subject = TextBox2.Text
289
                mail.Body = RichTextBox1.Text
290
                SmtpServer.Send(mail)
291
            ElseIf ComboBox1.SelectedItem = "BPL Mobile" Then
292
                mail.To.Add(TextBox1.Text + "@bplmobile.com")
293
                mail.From = New MailAddress(TextBox3.Text)
294
                mail.Subject = TextBox2.Text
295
                mail.Body = RichTextBox1.Text
296
                SmtpServer.Send(mail)
297
            ElseIf ComboBox1.SelectedItem = "Cellular One" Then
298
                mail.To.Add(TextBox1.Text + "@mobile.celloneusa.com")
299
                mail.From = New MailAddress(TextBox3.Text)
300
                mail.Subject = TextBox2.Text
301
                mail.Body = RichTextBox1.Text
302
                SmtpServer.Send(mail)
303
            ElseIf ComboBox1.SelectedItem = "Cingular (Postpaid)" Then
304
                mail.To.Add(TextBox1.Text + "@cingularme.com")
305
                mail.From = New MailAddress(TextBox3.Text)
306
                mail.Subject = TextBox2.Text
307
                mail.Body = RichTextBox1.Text
308
                SmtpServer.Send(mail)
309
            ElseIf ComboBox1.SelectedItem = "Centennial Wireless" Then
310
                mail.To.Add(TextBox1.Text + "@cwemail.com")
311
                mail.From = New MailAddress(TextBox3.Text)
312
                mail.Subject = TextBox2.Text
313
                mail.Body = RichTextBox1.Text
314
                SmtpServer.Send(mail)
315
            ElseIf ComboBox1.SelectedItem = "Cingular (GoPhone prepaid)" Then
316
                mail.To.Add(TextBox1.Text + "@cingularme.com (SMS)")
317
                mail.From = New MailAddress(TextBox3.Text)
318
                mail.Subject = TextBox2.Text
319
                mail.Body = RichTextBox1.Text
320
                SmtpServer.Send(mail)
321
            ElseIf ComboBox1.SelectedItem = "Cingular (GoPhone prepaid)" Then
322
                mail.To.Add(TextBox1.Text + "@cingularme.com")
323
                mail.From = New MailAddress(TextBox3.Text)
324
                mail.Subject = TextBox2.Text
325
                mail.Body = RichTextBox1.Text
326
                SmtpServer.Send(mail)
327
            ElseIf ComboBox1.SelectedItem = "Alaska Communications Systems" Then
328
                mail.To.Add(TextBox1.Text + "@msg.acsalaska.com")
329
                mail.From = New MailAddress(TextBox3.Text)
330
                mail.Subject = TextBox2.Text
331
                mail.Body = RichTextBox1.Text
332
                SmtpServer.Send(mail)
333
            ElseIf ComboBox1.SelectedItem = "Aql" Then
334
                mail.To.Add(TextBox1.Text + "@text.aql.com")
335
                mail.From = New MailAddress(TextBox3.Text)
336
                mail.Subject = TextBox2.Text
337
                mail.Body = RichTextBox1.Text
338
                SmtpServer.Send(mail)
339
            ElseIf ComboBox1.SelectedItem = "AT&T Enterprise Paging" Then
340
                mail.To.Add(TextBox1.Text + "@page.att.net")
341
                mail.From = New MailAddress(TextBox3.Text)
342
                mail.Subject = TextBox2.Text
343
                mail.Body = RichTextBox1.Text
344
                SmtpServer.Send(mail)
345
            ElseIf ComboBox1.SelectedItem = "BigRedGiant Mobile Solutions" Then
346
                mail.To.Add(TextBox1.Text + "@tachyonsms.co.uk")
347
                mail.From = New MailAddress(TextBox3.Text)
348
                mail.Subject = TextBox2.Text
349
                mail.Body = RichTextBox1.Text
350
                SmtpServer.Send(mail)
351
            ElseIf ComboBox1.SelectedItem = "T-Mobile USA" Then
352
                mail.To.Add(TextBox1.Text + "@tmomail.net")
353
                mail.From = New MailAddress(TextBox3.Text)
354
                mail.Subject = TextBox2.Text
355
                mail.Body = RichTextBox1.Text
356
                SmtpServer.Send(mail)
357
            ElseIf ComboBox1.SelectedItem = "Nextel" Then
358
                mail.To.Add(TextBox1.Text + "@messaging.nextel.com")
359
                mail.From = New MailAddress(TextBox3.Text)
360
                mail.Subject = TextBox2.Text
361
                mail.Body = RichTextBox1.Text
362
                SmtpServer.Send(mail)
363
            ElseIf ComboBox1.SelectedItem = "Sprint PCS" Then
364
                mail.To.Add(TextBox1.Text + "@messaging.sprintpcs.com")
365
                mail.From = New MailAddress(TextBox3.Text)
366
                mail.Subject = TextBox2.Text
367
                mail.Body = RichTextBox1.Text
368
                SmtpServer.Send(mail)
369
            ElseIf ComboBox1.SelectedItem = "T-Mobile (Germany)" Then
370
                mail.To.Add(TextBox1.Text + "@t-d1-sms.de")
371
                mail.From = New MailAddress(TextBox3.Text)
372
                mail.Subject = TextBox2.Text
373
                mail.Body = RichTextBox1.Text
374
                SmtpServer.Send(mail)
375
            ElseIf ComboBox1.SelectedItem = "Verizon" Then
376
                mail.To.Add(TextBox1.Text + "@vtext.com")
377
                mail.From = New MailAddress(TextBox3.Text)
378
                mail.Subject = TextBox2.Text
379
                mail.Body = RichTextBox1.Text
380
                SmtpServer.Send(mail)
381
            ElseIf ComboBox1.SelectedItem = "Boost (U.S)" Then
382
                mail.To.Add(TextBox1.Text + "@myboostmobile.com")
383
                mail.From = New MailAddress(TextBox3.Text)
384
                mail.Subject = TextBox2.Text
385
                mail.Body = RichTextBox1.Text
386
                SmtpServer.Send(mail)
387
            ElseIf ComboBox1.SelectedItem = "Virgin Mobile (USA)" Then
388
                mail.To.Add(TextBox1.Text + "@vmobl.com")
389
                mail.From = New MailAddress(TextBox3.Text)
390
                mail.Subject = TextBox2.Text
391
                mail.Body = RichTextBox1.Text
392
                SmtpServer.Send(mail)
393
            ElseIf ComboBox1.SelectedItem = "LMT" Then
394
                mail.To.Add(TextBox1.Text + "@sms.lmt.lv")
395
                mail.From = New MailAddress(TextBox3.Text)
396
                mail.Subject = TextBox2.Text
397
                mail.Body = RichTextBox1.Text
398
                SmtpServer.Send(mail)
399
            ElseIf ComboBox1.SelectedItem = "Meteor" Then
400
                mail.To.Add(TextBox1.Text + "@sms.mymeteor.ie")
401
                mail.From = New MailAddress(TextBox3.Text)
402
                mail.Subject = TextBox2.Text
403
                mail.Body = RichTextBox1.Text
404
                SmtpServer.Send(mail)
405
            ElseIf ComboBox1.SelectedItem = "Mero Mobile" Then
406
                mail.To.Add(TextBox1.Text + "@sms.spicenepal.com")
407
                mail.From = New MailAddress(TextBox3.Text)
408
                mail.Subject = TextBox2.Text
409
                mail.Body = RichTextBox1.Text
410
                SmtpServer.Send(mail)
411
            ElseIf ComboBox1.SelectedItem = "MetroPCS" Then
412
                mail.To.Add(TextBox1.Text + "@mymetropcs.com")
413
                mail.From = New MailAddress(TextBox3.Text)
414
                mail.Subject = TextBox2.Text
415
                mail.Body = RichTextBox1.Text
416
                SmtpServer.Send(mail)
417
            ElseIf ComboBox1.SelectedItem = "Movicom" Then
418
                mail.To.Add(TextBox1.Text + "@sms.movistar.net.ar")
419
                mail.From = New MailAddress(TextBox3.Text)
420
                mail.Subject = TextBox2.Text
421
                mail.Body = RichTextBox1.Text
422
                SmtpServer.Send(mail)
423
            ElseIf ComboBox1.SelectedItem = "Mobitel" Then
424
                mail.To.Add(TextBox1.Text + "@sms.mobitel.lk")
425
                mail.From = New MailAddress(TextBox3.Text)
426
                mail.Subject = TextBox2.Text
427
                mail.Body = RichTextBox1.Text
428
                SmtpServer.Send(mail)
429
            ElseIf ComboBox1.SelectedItem = "7-11 Speakout" Then
430
                mail.To.Add(TextBox1.Text + "@cingularme.com")
431
                mail.From = New MailAddress(TextBox3.Text)
432
                mail.Subject = TextBox2.Text
433
                mail.Body = RichTextBox1.Text
434
                SmtpServer.Send(mail)
435
            End If
436
            num = num + 1
437
            Label1.Text = num
438
        Next intLoopIndex
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!