Új hozzászólás Aktív témák

• Oly őstag

  #1734 2012-04-12 10:50:44

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  Sziasztok.

  Van arra lehetőség, hogy Visual Basic 6.0-ban olyan programot csináljak, ami az egér kurzort egy megadott helyre mozgatja és ott kattint?

  Van egy elég monoton munkafolyamatom, ahol a monitor adott pontjaira kattingatok.
  Már fáj a csuklóm.
  Arra gondoltam, hogy csinálok egy olyan makrót, vagy akár VB6-os programot, ahol csak egy helyre kattingatok, és az előre megadott kordinátákra viszi az egeret, kattint, majd vissza az egér (hogy tudjak újra kattintani...).

  Nézegettem angol fórumokat, de nem nagyon értettem.

  Előre is köszi.

• Oly őstag

  #1723

  #1722 ArchElf

  2012-04-06 08:30:50

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1722 ArchElf

  #1722 ArchElf

  A VBS (VB Script), a VBA (VB for Applications) és a VB6 szintaktikailag (és a használt metódusok, osztályok alapján is) nagyon hasonló - de nem teljes mértékben átjárható. Ha teszel fel példát, talán megtaláljuk, miért nem megy.

  AE

  Szia

  Private Sub Command1_Click()
  Dim objOutlook, objMail, oAddSig
  
  Set objOutlook = CreateObject("Outlook.Application")
  objOutlook.Session.Logon
  Set objMail = objOutlook.CreateItem(olMailItem)
  Set objOutlook = objMail.GetInspector
  
  With objMail
  .SentOnBehalfOfName = "nemazennevem@valami.hu"
  .To = "to"
  .Cc = "cc"
  .Subject = "Subject"
  .Body = "body"
  .Display
  End With
  
  Set objOutlook = Nothing
  Set objMail = Nothing
  End Sub

  Outlook2007-nél átírja a feladót, Excelből indítva 2010-nél is.
  HTML-ből, vagy VB6-tal csinált exe-nél már nem.
  2010-nél egy lenyíló listából tudom kiválasztani az eddig használt feladókat. Lehet, hogy itt valami objektumként kezeli már?

• Oly őstag

  #1721

  #1720 martonx

  2012-04-05 23:13:26

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1720 martonx

  #1720 martonx

  Mit értesz futtatható EXE alatt? VBS-t? .hta-t?
  Ugyan makró, makró, de sajnos nem 100% az átjárhatóság közöttük.

  Visual Studio 6.0-ban csináltam meg a Form-ot.

  Nagyon nem értek hozzá... Csak úgy magamtól kezdtem el az Excelt programozgatni...

  HTML-be is átültettem a scriptet, de ott is ugyanúgy "működik".
  Csak a saját nevem alól tudom küldeni.

• Oly őstag

  #1719 2012-04-05 20:34:49

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  Sziasztok

  Van egy Excel makróm, ami új outlook levelet kreál.

  A feladót a SentOnBehalfOfName-mel adtam meg.

  Excelből hibátlanul megy még a 2010--es Outlookkal is.

  Most kitaláltam, hogy futtatható EXE-t csinálok belőle. Így viszont nem működik a feladó beállítása.

  HTML-be illesztve sem hajlandó a 2010-es Outlookkal a feladót beállítani.

  Mi lehet a gond?

• Oly őstag

  #1686

  #1684 Oly

  2012-03-05 12:39:07

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1684 Oly

  #1684 Oly

  Azt hittem, hogy van jobb lehetőség is.
  Mivel csak 2-3 button van, így nem gázos... Köszi

  Más:

  Function mailsender()
  Dim objOutlook, objMail, oAddSig
  
  Set objOutlook = CreateObject("Outlook.Application")
  objOutlook.Session.Logon
  Set objMail = objOutlook.CreateItem(olMailItem)
  Set objOutlook = objMail.GetInspector
  
  With objMail
  .SentOnBehalfOfName = "from"
  .To = "to"
  .Cc = "cc"
  .Subject = "Subject"
  .Body = "Body"
  .Display
  End With
  
  Set objOutlook = Nothing
  Set objMail = Nothing
  End Function

  Hogyan tudnám megadni, hogy a felugró levélhez már szúrja be az alapértelmezett Outlook aláírást is?
  Amiket találtam (pl: [link]) azért nem jó, mert több gépen fogják használni, más-más aláírási filenévvel.

  Találtam egy ilyet is, de ez meg nem akar működni HTML-be ültetve.

  Az otthoni gépemen már működött a lenti script, de melóban nem megy.
  Win7 + Outlook 2007 és Server 2003 + Outlook 2010 esetén sem ment.
  Azt mondta, hogy:
  ActiveX component can't create object: 'Outlook.Application'

• Oly őstag

  #1684

  #1683 martonx

  2012-03-05 09:49:30

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1683 martonx

  #1683 martonx

  radio button-nak is ugyanígy lekérdezhető az értéke. Viszont minden egyes gombot külön objektumként kell ellenőrizni, hogy melyiknek igaz a .checked tulajdonsága.
  Javascriptes példáktól hemzseg az internet.

  Azt hittem, hogy van jobb lehetőség is.
  Mivel csak 2-3 button van, így nem gázos... Köszi

  Más:

  Function mailsender()
  Dim objOutlook, objMail, oAddSig
  
  Set objOutlook = CreateObject("Outlook.Application")
  objOutlook.Session.Logon
  Set objMail = objOutlook.CreateItem(olMailItem)
  Set objOutlook = objMail.GetInspector
  
  With objMail
  .SentOnBehalfOfName = "from"
  .To = "to"
  .Cc = "cc"
  .Subject = "Subject"
  .Body = "Body"
  .Display
  End With
  
  Set objOutlook = Nothing
  Set objMail = Nothing
  End Function

  Hogyan tudnám megadni, hogy a felugró levélhez már szúrja be az alapértelmezett Outlook aláírást is?
  Amiket találtam (pl: [link]) azért nem jó, mert több gépen fogják használni, más-más aláírási filenévvel.

  Találtam egy ilyet is, de ez meg nem akar működni HTML-be ültetve.

• Oly őstag

  #1682 2012-03-04 23:01:38

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  Sziasztok

  Van egy HTML űrlapom, amit VBA (vagyVBS... mittomén ) dolgoz fel.
  Nem találom, hogy miként tudnék dolgozni a kijelölt radio button értékével.

  <label>
  <input type="radio" name="szin" value="Fekete">
  Fekete </label>
  <br>
  <label>
  <input type="radio" name="szin" value="Fehér">
  Fehér </label>

  Hogyan tudnám változóként kezelni, hogy mit jelölünk ki?

  Select esetén működik a document.getElementById("orszagok").value

  <label for="orszagok">Válasszon országot:</label>
  <select name="orszagok" id="orszagok">
  <option value="HU">Magyarország</option>
  <option value="AT">Ausztria</option>
  <option value="BE">Belgium</option>
  <option value="BG">Bulgária</option>
  </select>

  Vannak olyan esetek, amikor a radio Button jobb lenne.

  Előre is köszönöm.

• Oly őstag

  #1440

  #1438 ArchElf

  2011-09-19 11:32:56

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1438 ArchElf

  #1438 ArchElf

  Hol van ez futtatva (access, ha jól rémlik?)

  Hirtelen ezeket találtam:
  - Mi az a Bontás Pending?
  - GOTO értelmetlen, használj Exit Sub-ot
  - probalkozasok hol kap értéket, nincs átadva a Sub-nak, ez valami globális objektum?
  - user() implementálva van?
  - Ezeket mire használod?
  Kiertesito1, Kiertesites1, Kiertesito2, Kiertesites2, Kiertesito3, Kiertesites3
  - indentálásra figyelj:
  If akármi Then
  'művelet 1
  'művelet 2
  Else
  'művelet 3
  'művelet 4
  End If
  így legalább olvasható lesz a kód
  - használj Option Explicit-et (minden változót kötelező deklarálnod Dim akármi-vel, de legalább véd az elgépelés és a túlzott mértékű változó használat ellen)

  AE

  Igen, Access Űrlapon egy gomb.
  A Bontás Pending a Fájl név.
  a probalkozasok, a kiertesites és a kiertesito az űrlapon található textBoxok.
  Egyébként ide menti, hogy ki és mikor "próbálkozott".
  3 próba után lezárjuk.
  Ezeket is deklaráljam? (Eddig működött nélküle)

  A user() pedig Module1-ben van:
  Declare Function GetUserName Lib "advapi32.dll" Alias _
  "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) _
  As Long
  Function user()
  Dim s As String
  Dim cnt As Long
  Dim dl As Long
  Dim CurUser As String
  cnt = 199
  s = String(200, 0)
  dl = GetUserName(s, cnt)
  If dl <> 0 Then
  CurUser = Left$(s, cnt - 1)
  Else
  CurUser = ""
  End If
  user = CurUser
  End Function

  Ezzel adom meg az aktuális felhasználó NT login nevét. (keresztnev.vezetkenev)

• Oly őstag

  #1437

  #1436 ArchElf

  2011-09-19 10:56:42

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1436 ArchElf

  #1436 ArchElf

  Hol hal el?

  írj be az elejére egy
  On Error Resume Next-et

  A végére meg ezt:
  If Err Then
  MsgBox(Err.Number & vbCrLf & Err.Description)
  Err.Clear()
  End If
  On Error Goto 0

  Ez majd kiírja, mi a hiba, akkor lehet majd egy kicsit pontosabban ráközelíteni a problémára...

  AE

  Sajnos el sem indul.

  Ezt dobja egyből:
  

• Oly őstag

  #1434

  #1431 Oly

  2011-09-19 10:27:39

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1431 Oly

  #1431 Oly

  Sziasztok

  Sajnos ez nekem nem mond sokat.
  Nem programoztam még sosem, csak így magamtól, mókolgattam össze ezeket a dolgokat.

  Ezt a gyakorlatban hogy oldhatom meg?
  Segít, ha becopyzom a forráskódot?

  Most addig eljutottam, hogy néhány helyen már futnak a scriptek, de még mindig nem mind.
  pl ez sem:

  Private Sub Command34_Click()
  Dim proba As Long
  'Dim sortores As String
  'sortores = ""
  hivas = MsgBox("Hívtad a kontaktot?", vbQuestion + vbYesNo, "Megerősítés")
  If hivas = vbNo Then
  GoTo Vege
  End If
  If probalkozasok.Value > 0 Then
  sortores = vbCrLf
  End If
  probalkozasok.Value = probalkozasok.Value + 1
  
  nvf = MsgBox("Sikerült elérni az ügyflelet?", vbQuestion + vbYesNo, "Kérdés")
  If nvf = vbYes Then
  hozzafuz = InputBox("Eredmény", "Kérlek add meg, hogy mire jutottál")
  lezarass = MsgBox("Lezáruk a jegyet sikeres kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
  If lezarass = vbYes Then
  Lezarva = 2
  MyFile = "BP.txt"
  fnum = FreeFile()
  Open MyFile For Append As fnum
  Write #fnum, Now(), user(), "M", ID, Lezarva
  Close #fnum
  End If
  Else
  hozzafuz = "Nem vette fel"
  End If
  Kiertesites_eredmenye = Kiertesites_eredmenye & sortores & probalkozasok & ". kiértesítés: " & hozzafuz
  If probalkozasok.Value = 1 Then
  Kiertesito1 = user()
  Kiertesites1 = Now()
  End If
  If probalkozasok.Value = 2 Then
  Kiertesito2 = user()
  Kiertesites2 = Now()
  End If
  If probalkozasok.Value = 3 Then
  Kiertesito3 = user()
  Kiertesites3 = Now()
  lezaras = MsgBox("Ez volt a harmadik próbálkozás! Lezáruk a jegyet sikertelen kiértesítéssel?", vbQuestion + vbYesNo, "Lezárás")
  If lezaras = vbYes Then
  Lezarva = 3
  MyFile = "BP.txt"
  fnum = FreeFile()
  Open MyFile For Append As fnum
  Write #fnum, Now(), user(), "M", ID, Lezarva
  Close #fnum
  End If
  End If
  Vege:
  End Sub

• Oly őstag

  #1431

  #1428 ArchElf

  2011-09-19 09:41:11

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1428 ArchElf

  #1428 ArchElf

  Script elején GetLocale()-al le tudod kérdezni az aktuális terület beállítást, utána
  SetLocale(id)-val beállítod a kívántat, majd a script végén visszaállítod az eredetit...

  AE

  Sziasztok

  Sajnos ez nekem nem mond sokat.
  Nem programoztam még sosem, csak így magamtól, mókolgattam össze ezeket a dolgokat.

  Ezt a gyakorlatban hogy oldhatom meg?
  Segít, ha becopyzom a forráskódot?

• Oly őstag

  #1425

  #1410 Oly

  2011-09-19 08:41:13

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1410 Oly

  #1410 Oly

  Sziasztok

  Jobb helyet nem találtam ennek.

  Ezek a hibaüzik miért lehetnek?
  Ez egy Access adatbázis űrlapján lévő macro lenne.
  Van olyan gép, amin megy a dolog, van amin nem.
  Valami beállítás?

  
  

  Sziasztok.

  Mivel nem tudjuk a területi beállításokat állítani minden gépen, ezért valami más megoldásra lenne szükségem.

  Próbálkoztam, hogy az én gépemen is átállítom angolra, de nem történt semmi, majd mikor visszaállítottam magyarra, akkor az én gépemen sem ment már a dolog.
  Sőt!
  Ami eddig ment (másik adatbázisban), az sem megy most már.

  Van valami alternatív lehetőség, ami területi beállítástól független?
  Sajnos ez az alkalmazás több 100 gépen (PC, Terminal, Laptop) fog futni, és nem tudjuk máshogy megoldani.

  Ha kell, újra építem az egészet, csak mondjátok el hogy mire figyeljek...
  Milyen karaktereket ne használjak, vagy mi miatt akadnak ezek össze?

  ELőre is köszönöm.

• Oly őstag

  #1415

  #1411 ArchElf

  2011-09-14 23:09:43

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1411 ArchElf

  #1411 ArchElf

  Angol/Magyar Acces esetleg (egyiken ez, másikon az)?

  AE

  Itthon már rá tudtam guglizni és valszeg az ékezetes mezőnevek lesznek a hiba okozók!

  Holnap megnézem.

• Oly őstag

  #1412

  #1411 ArchElf

  2011-09-14 16:32:47

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  #1411 ArchElf

  #1411 ArchElf

  Angol/Magyar Acces esetleg (egyiken ez, másikon az)?

  AE

  Angol mindegyik!

  Talán a dátum és a Local beállítások nem egyeznek, mert egyiken 2011.09.14, másikon 14/09/2011 formátumban írta a dátumot, de ez nem volt zavaró azon a gépen, amin néztem.

  Van amelyik PC-n, van ami terminal serveren (2003) fut, de nem ez okozza...

• Oly őstag

  #1410 2011-09-14 15:17:02

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Oly

  őstag

  Sziasztok

  Jobb helyet nem találtam ennek.

  Ezek a hibaüzik miért lehetnek?
  Ez egy Access adatbázis űrlapján lévő macro lenne.
  Van olyan gép, amin megy a dolog, van amin nem.
  Valami beállítás?

  
  

Új hozzászólás Aktív témák