Jeg sidder og arbejder i VB 6.0 og jeg har lavet en kontrol program nu skal jeg så sikre mig at hvis 2 af mine værdier bliver for lav skal programmet sende mig en SMS med tekst og en email...Hvad er koden til at få dette til at fungere?
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...
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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.