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

• #1734 Oly őstag

  Új Válasz 2012-04-12 10:50:44 #1734

  Ú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

  Privát üzenet küldése

  

  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.

• #1723 Oly őstag ArchElf #1722

  Új Válasz 2012-04-06 08:30:50 #1723

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz ArchElf #1722 üzenetére

  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?

• #1721 Oly őstag martonx #1720

  Új Válasz 2012-04-05 23:13:26 #1721

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz martonx #1720 üzenetére

  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.

• #1719 Oly őstag

  Új Válasz 2012-04-05 20:34:49 #1719

  Ú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

  Privát üzenet küldése

  

  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?

• #1686 Oly őstag Oly #1684

  Új Válasz 2012-03-05 12:39:07 #1686

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz Oly #1684 üzenetére

  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'

• #1684 Oly őstag martonx #1683

  Új Válasz 2012-03-05 09:49:30 #1684

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz martonx #1683 üzenetére

  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.

• #1682 Oly őstag

  Új Válasz 2012-03-04 23:01:38 #1682

  Ú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

  Privát üzenet küldése

  

  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.

• #1440 Oly őstag ArchElf #1438

  Új Válasz 2011-09-19 11:32:56 #1440

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz ArchElf #1438 üzenetére

  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)

• #1437 Oly őstag ArchElf #1436

  Új Válasz 2011-09-19 10:56:42 #1437

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz ArchElf #1436 üzenetére

  Sajnos el sem indul.

  Ezt dobja egyből:
  

• #1434 Oly őstag Oly #1431

  Új Válasz 2011-09-19 10:27:39 #1434

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz Oly #1431 üzenetére

  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

• #1431 Oly őstag ArchElf #1428

  Új Válasz 2011-09-19 09:41:11 #1431

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz ArchElf #1428 üzenetére

  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?

• #1425 Oly őstag Oly #1410

  Új Válasz 2011-09-19 08:41:13 #1425

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz Oly #1410 üzenetére

  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.

• #1415 Oly őstag ArchElf #1411

  Új Válasz 2011-09-14 23:09:43 #1415

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz ArchElf #1411 üzenetére

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

  Holnap megnézem.

• #1412 Oly őstag ArchElf #1411

  Új Válasz 2011-09-14 16:32:47 #1412

  Ú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

  Privát üzenet küldése

  

  Oly

  őstag

  válasz ArchElf #1411 üzenetére

  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...

• #1410 Oly őstag

  Új Válasz 2011-09-14 15:17:02 #1410

  Ú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

  Privát üzenet küldése

  

  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