Send en sms og en e-mail

Den med SMS kan jo løses riemlig nemt over e-mail, det er nok resten der kommer til at tage noget tid :O)
Glæder mig da til at se resultatet...

- Mikker

mikker, hvordan vil du sende en SMS over email nu om dage ?

Alle mobiltelefoner har egen emailadresse, kan ikke lige huske nøjagtig hvad syntaxen er, men det er vel til at finde...

- Mikker

Det er blevet afskaffet

Der kan du bare se hvor meget jeg følger med :O)
Anyway, det komplicerer jo tingene en del, men jeg glæder mig stadig til at se resultatet...

- Mikker

Tjah..jeg lytter bare med(hvorfor skulle vi fratages muligheden for sms via vb :-()

Tjaaa... man kan godt sende til Sonofons kunder (har lige testet på min egen mob. Jeg har en liste her, men ved ikke hvor meget der virker nu:

26100000 - 26999999 Mobilix mobilnummer@sms.mobilix.dk
28100000 - 28999999 Telia  mobilnummer@gsm1800.telia.dk
20600000 - 20999999 Sonofon mobilnummer@note.sonofon.dk
22100000 - 22999999 Sonofon mobilnummer@note.sonofon.dk
40500000 - 40999999 Sonofon mobilnummer@note.sonofon.dk
20100000 - 20599999 Tele Danmark Mobil mobilnummer@sms.tdm.dk
21100000 - 21999999 Tele Danmark Mobil mobilnummer@sms.tdm.dk
23100000 - 23899999 Tele Danmark Mobil mobilnummer@sms.tdm.dk
24100000 - 24899999 Tele Danmark Mobil mobilnummer@sms.tdm.dk
40100000 - 40499999 Tele Danmark Mobil mobilnummer@sms.tdm.dk

Mobilix må jo nu være Orange.... men du kan jo selv teste om det virker på din mobi.... :)

Så svaret på dit spørgsmål må vel være:

Public Function SendEnMail(TilAdresse As String, Emne As String, Tekst As String, Optional VedhæftetFil As String)
    Dim outlook, mail
    Set outlook = CreateObject("Outlook.Application")
    MAPI = outlook.GetNameSpace("MAPI")
    Set mail = outlook.CreateItem(0)
    mail.Recipients.Add (TilAdresse)
    mail.Subject = Emne
    mail.Body = Tekst
    If VedhæftetFil <> "" Then mail.Attachments.Add (VedhæftetFil)
    mail.send
End Function

Kører du Office2000 med Servicepack 2 skal du dog svare ja til at sende mail på en anden brugers vejne, og derfor kan du ikke bruge det i dit tilfælde. Ellers skulle det virke...

Hvad med Orange numre der starter med 27???

Virker ikke umiddelbart med sms.tdm.dk, men nu er det da også kun 10-12 minutter siden jeg sendte...

- Mikker

http://ad.se.doubleclick.net/click;h=v2|2f1f|0|0|%2a|p;4949465;0-0;0;7585016;3-125|125;2138603|2136944|1;;%3fhttp://www.casmgroup.com

- Mikker :O)

Fra tdc.dk:

Grundet omkostninger opstået efter indførelsen af interconnect på SMS området er muligheden for at konvertere e-mail til SMS på TDC Mobils Internet Gateway (via adressen [mobilnummer]@sms.tdm.dk) ophørt pr. 1. maj 2002
Det vil fortsat være muligt for kunder i TDC Mobil’s net at konvertere SMS’er til e-mail ved at sende SMSen til modtager 200.

ÆV!
- Mikker