- Pokoli repetát hoz az új GeForce driver
- SSD kibeszélő
- Vezetékes FEJhallgatók
- Épített vízhűtés (nem kompakt) topic
- Milyen billentyűzetet vegyek?
- Dell notebook topic
- Fejhallgató erősítő és DAC topik
- IGP nélküli processzorokkal készül az Intel és az AMD
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Rágyúr a macOS-re a 3DMark
Új hozzászólás Aktív témák
-
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
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 SubOutlook2007-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
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
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ösziMá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 FunctionHogyan 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
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
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 FunctionEzzel adom meg az aktuális felhasználó NT login nevét. (keresztnev.vezetkenev)
-
Oly
őstag
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
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
) dolgoz fel.
Új hozzászólás Aktív témák
Hirdetés
- Counter-Strike: Global Offensive (CS:GO) / Counter-Strike 2 (CS2)
- Egyre csak fejlődik az AI, emberek tízezreit rúgja majd ki a BT
- One otthoni szolgáltatások (TV, internet, telefon)
- Sütés, főzés és konyhai praktikák
- Végleg lenyomta a tévét a streaming az USA-ban
- NBA és kosárlabda topic
- Viccrovat
- Pokoli repetát hoz az új GeForce driver
- SSD kibeszélő
- Vezetékes FEJhallgatók
- További aktív témák...
- Eladó konfig! Ryzen 7 7800X3D 2TB SSD 64GB DDR5 RX9070XT 16GB!
- Új, makulátlan állapotú Samsung Galaxy Buds FE, fehér, fél év garancia
- Új, makulátlan állapotú Samsung Galaxy Watch7 44mm ezüst, 2 év garancia
- Új, makulátlan állapotú Samsung Z Fold 6 256GB Tengerészkék, független, 2 év garancia
- Használt TP-Link Deco M4 - AC1200 Router (Mesh-ként is használható)
- AKCIÓ! Gigabyte H610M i5 13600K 16GB DDR4 512GB SSD RTX 3060Ti 8GB Zalman S2 TG Seasonic 650W
- AKCIÓ! Apple Macbook Pro 16" 2019 i9 9980HK 64GB DDR4 1TB SSD Radeon Pro 5500M garanciával
- PlayStation Network Card (PSN) ajándékkártyák, egyenesen a Sony-tól!
- BESZÁMÍTÁS! Asus TUF F15 FX506HM Gamer notebook - i5 11400H 16GB DDR4 RAM 512GB SSD RTX 3060 6GB W10
- AKCIÓ! HP USB C G5 Essential (5TW10AA) dokkoló hibátlan működéssel garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest