hMailServer forum

SorenR

Hmm... HM4403 is used in PersistentMessage::LoadHeader and PersistentMessage::LoadBody ...
Both are called from DKIM at different times.

Wonder if the error goes away if DKIM check is removed?

SorenR

I still fail to see why a 20 second wait would cause this. The script trigger is done and control is returned to core. If a supposed 20 second delay is delayed for 40 seconds I can not see why the issue is not within that call :mrgreen: The error occurs _between_ triggers, neither OnSMTPData nor On...

SorenR

So we can conclude the issue you had was indeed introduced by using the Wait(20) and caused by some incompatibilities with sleep/timeout on Server Core? Or with this change, the issue still is not resolved? I'm not sure you are getting off that easy ;-) I still fail to see why a 20 second wait woul...

SorenR

I made a new function to test. Function Wait(tSec) Dim dtWait dtWait = DateAdd("s", tSec, Now()) Do Until (Now() > dtWait) Loop End Function That should work fine. Sort of. My AMD Athlon(tm) II P340 Dual-Core 2.19 GHz doing absolutely Nothing else spikes to 60% CPU for the duration... With this I c...

SorenR

SorenR wrote: ↑
2019-05-24 00:24
Anyways, in the meantime I have verified that oMessage.Filename do have a value when OnSMTPData() is triggered.

Also verified that oMessage.Filename do not exist on disk at this point. It does when OnAcceptMessage is triggered and file can be read as text file...

SorenR

Don't get me wrong here, it is the only change between the two triggers there is between your code and the released code... Anyways, there are plenty others using the 20 second delay without problems... I fail to see what SURBL has to do with it - it's a missing header or something. I run 5.4.2 with...

SorenR

Use https://regex101.com/

Click on the 3 lines top left and choose ECMAScript...

Change .IgnoreCase = True to False

One thing though... Copy oLookup to a new function or you will break all previous use of the function

SorenR

EDIT: !! Hmm... Could this be the temporary file sent to SA that is not supposed to exist yet ?? Weird, investigation needed! Ruud (RvdH) is playing with "Return-Path" before sending mail to SpamAssassin and that is at that exact place where your HM4403 error occurs. You might want to give him a pi...

SorenR

Something is not right here... You get the HM4403 error between OnSMTPData and OnAcceptMessage ... From what I have been able to decode in the (released) code nothing is written to file until AFTER OnAcceptMessage execute. (!!) EDIT: !! Hmm... Could this be the temporary file sent to SA that is not ...

SorenR

The Unknown client is NOT the issue. When I send to gmail I get this: Authentication-Results: mx.google.com; dkim=pass header.i=@acme.inc header.s=key1 header.b=UiL+0uR2; spf=pass (google.com: domain of soren@acme.inc designates 123.123.123.123 as permitted sender) smtp.mailfrom=soren@acme.inc; dmar...

SorenR

By the way, after implementing your event handlers, i went from 20 to 30 spam per day to 1 to 3. Very nice! When i get some time, I'll try to figure out how to knock that down even further. There's a pattern I've noticed for spam addresses that make it through is "Somefirstname <DifferentfirstnameL...

SorenR

Nice mower. Do you bale it? Or stack it like the old days? :mrgreen: I'm hosting horses for a friend from time to time so 6 of the 12 acres I don't have to touch, the rest is kept short. Working the wood chipper clearing up years of dead wood. I've owned the place since 2005 and last year we moved ...

SorenR

the only other machine I have spare is a Acer Aspire 5552 with an AMD Athlon II Did you drag that thing out of a time capsule or something? Those antiques might be worth something today if you throw a couple of kroner inside the case. LOL I think my ProTools mixing station in 2000 was on an Athlon ...

SorenR

' Disconnect all others connecting to port 25. Call idsAddIP(oClient.IPAddress, oClient.Port) Result.Value = 1 Call AutoBan(oClient.IPAddress, "GeoIP - " & oClient.IpAddress, 7, "d") EventLog.Write(strPort & " Connection REJECTED" & Chr(34) & vbTab & oClient.IPAddress & vbTab & Chr(34) & oGeoip("co...

SorenR

Mattg, Thanks so much for your thoughts. I really appreciate your feedback. But again, I think you are missing the point... Gmail detects the actual ISP IP Number that the email sender is using beside the server IP where the HMailServer is running. If Gmail detects the IP having NO PTR Record then ...

SorenR

I believe this is the version in Ruud's code. It is the version I use in my 5.4.2 code.

viewtopic.php?p=188753#p188753

SorenR

oMessages.DeleteByDBID is not an option until the message have arrived in the mailbox - after completing rule handling and the EventHandlers script. The alternative is to "do your stuff" and then send the email to a wastebasket or tag it with a header value and delete it by rule. I did a test at the...

SorenR

If you wonder who Martin is and what he does for a living...

https://www.linkedin.com/in/martin-knafve-99187a2/

SorenR

Been experimenting... Reading the DB Table hm_messages from the Account Rule (Run Function) and it shows that the ID of the message (oMessage.ID) do exist BUT (!) "messageaccountid" and "messagefolderid" are 0, so it appears the message is owned by "nobody" in folder "nowhere" and this is probably w...

SorenR

ID is written in table long before message hits inbox. You should be able to find oMessage.ID already in OnDeliveryStart(). .eml file is in .\hMailServer\Data at this stage. hmm, my approach was: ... strLocalSender = oMessage.Recipients(0).Address '<--- account from which the function is called by ...

SorenR

my problem is "Subscript out of range". it seems ID isn't written in table unless file is saved on disk. and then it means message has already landed in inbox. too late for anything. am i right? if yes, no need to waste further time. i already have workarounds but it's a shame that calling a "delet...

SorenR

In the ideal world you would use something like: Dim oApp : Set oApp = CreateObject("hMailServer.Application") Call oApp.Authenticate(ADMIN, PASSWORD) Dim oMessages : Set oMessages = CreateObject("hMailServer.Messages") Call oMessages.DeleteByDBID(oMessage.ID) Set oMessages = Nothing Set oApp = Noth...

SorenR

Unfortunately - the log viewer does not let me copy and paste and there appears to be no export button. Anyway - think it is resolved - found the account they were using to connect. FYI - I was not obfuscating any spam e-mail addresses, I was obfuscating the domain where my server is hosted. Where ...

SorenR

Like this ??

https://www.hmailserver.com/forum/viewtopic.php?t=30359

SorenR

You could try this... 1: You will delay anything they do. 2: BOT's and general SPAM is all about time, if you delay them they skip your server. 3: Any LEGIT SMTP server WILL ignore the 20 sec delay and proceed to deliver mail. 4: Disable AUTH on port 25, move your clients to port 587 TLS or 465 SSL ...

SorenR

FYI - running Handler.vbs from task manager will "wake up" hmailserver service. I found that from running Jimi's backup script which shuts down hmailserver service during the backup. Something was turning on the service before the backup completed. I finally nailed it down to Handler.vbs running ev...

SorenR

Is there a way to Auto Ban an IP from consecutive attempts to gain valid email addresses via the 550 error, similar to the login attempt Auto Ban Have been getting an excessive amount of attempts like this.. "SMTPD" 5108 3342 "2019-05-12 00:33:10.846" "185.222.211.30" "RECEIVED: RCPT TO:<ihk7o11olb...

SorenR

SorenR Thank you for posting this, I'm very interested in trying it out Unfortunately, with all the discussions that have gone on in the thread I can't work out what the latest EventHandler.vbs and Handler.vbs is (I'm really only interested in bloacking the failed login attempts at the mopment) The...

SorenR

Well its been a success. Had a log of 250 items, sent my priority email and got it within seconds. I always do. I thought this thing ran every minute, which I setup, but it seems its kinda instant , not sure why. In any case we have successfully moved items up the queue! Nice job guys! You just got...

SorenR

I missed the FileCopy and RefreshContent methods being used as a work-around for the missing load-from-file method on the Message object. I'd also suggest you run the code using the cscript.exe interpreter and not the default wscript.exe interpreter. As you've seen, wscript will throw a modal dialo...

SorenR

I think it all comes down to the DB-Field "messagenexttrytime" for delaying outgoing mails. UPDATE `hmailserver`.`hm_messages` SET messagenexttrytime = '2019-05-10 08:03:59' WHERE messagefilename = '{C6C3D5C8-8820-4BE0-923B-CD4C02708AD8}.eml'; If you run it via COM API Database Object, you can trig...

SorenR

This line: Set oMail = CreateObject("hMailServer.Message") Creates a new message object instance. But this line: strFilename = oMail.Filename Assigns the filename for the new message to the strFilename variable. It does not load the the contents of the message in the queue to the instance. So the s...

SorenR

Dravion, that is food for thought ... Good point but very risky if you are not 112% certain of what you are doing! I am actually already using the COM DB object for updating a custom table in the hm database so maybe I should have a look at it. The rest of you! Windows can present multiple errors fr...

SorenR

I hold all my hMailserver script/shell script code in the Events folder.

CInt (16bit) or CLng (32bit) dont care. It should really be LongLong (64bit) but VBScript is weird that way.

SorenR

https://www.24x7serversolutions.com/blo ... syn-flood/

SorenR

New version, no need to restart delivery if nobody is moved ... Dim b, Match, Matches, oMail, LiveVIP : LiveVIP = False Dim oApp : Set oApp = CreateObject( "hMailServer.Application" ) Call oApp.Authenticate( "Administrator", "BIG SECRET" ) Matches = Split( oApp.status.UndeliveredMessages, vbNewLine ...

SorenR

I believe this should do it... Try it out on a test system first and if it breaks something - Hey, I warned you! Filename: queue.vbs Dim b, Match, Matches, oMail Dim oApp : Set oApp = CreateObject( "hMailServer.Application" ) Call oApp.Authenticate( "Administrator", "BIG SECRET" ) Matches = Split( o...

SorenR

cblaze22 wrote: ↑
2019-05-08 15:18
I like this
Code: Select all
ID = Left(Match,InStr(Match," ")-12)
Can you explain how it works real quick. If I want to grab the .eml column, I assume that would work the same way.

Hey Programmer !! Done that already for you in the thread about reading eml's from disk. And it works too...

SorenR

Well... I'm a genius... Dim a, b, i, Match, Matches, Done, oMail Dim oApp : Set oApp = CreateObject("hMailServer.Application") Call oApp.Authenticate("Administrator", "BIG SECRET") Done = False Do Until Done ' ' List all messages in queue ' Matches = Split(oApp.status.UndeliveredMessages, vbNewLine)...

SorenR

Try this For i = 1 To oMessage.Headers.Count txt = "Message Subject is: " & oMessage.Subject & " Header #" & i & " name is: " & oMessage.Headers.Item(i-1).Name txt = txt & " value is: " & oMessage.Headers.Item(i-1).Value EventLog.write txt Next 'i That's not what he want... He want us to write the ...

SorenR

Jokes aside i would still like to address: a, who these address belong to? Some of them resolved to 'askalo .info', and all are located in Germany. b, Why do they sit at SYN_RCVD and not move to any other state? c, Why, at that state, are they seriously screwing around with the performance of the h...

SorenR

Well that is neat, but where do you think the best place to call this? From a CMD window in Windows... On the server... It's a test... It does not really do anything but list the messages in queue - I hope - I usually never have any messages in my queue so I have only done limited testing. It's a c...

SorenR

Who did you piss off lately ??

SorenR

Yalwa GmbH
Bahnstraße 2
65205 Wiesbaden
GERMANY
phone: +49 611 448875 0
fax:
e-mail: ripe (at) yalwa (dot) com

Nothing here, I don't share port 587

SorenR

Just mocking something together... This should list the content of the delivery queue. VBScript stand-alone script to test on server in CMD window. Dim Match, Matches, Done Dim oApp : Set oApp = CreateObject("hMailServer.Application") Call oApp.Authenticate("Administrator", "VERY SECRET") ' Prelimin...

SorenR

Im a programmer, already programmed a VBScript to remove bounced messages within HMailServer so I know what I am doing. I however dont know the logistics of how HMailServer flows. You just said its written in c++ but the admin panel IS NOT written in just c++, https://github.com/nberardi/hMailServe...

SorenR

What do you mean by "And yes, if you want this to happen you need to create a stand-alone script to monitor the queue and act accordingly."? Also there has to be a method hook for this. I cant believe we cant do anything to a message before it goes into the queue or right after. Should be an easy t...

SorenR

Ok I feel like I am getting contradictory responeses with these methods. So OnDeliverMessage is when it goes INTO the queue. Meaning it has a Message ID, meaning I can run the code below to put it at the top of the queue. Please confirm. WaitCursor waitCursor = new WaitCursor(); hMailServer.Deliver...

SorenR

You say that but you were incorrect about the OnDeliveryFailed method. The code below sends an email right away. So you are telling me there is no place in the HMailServer scripting this can happen? private void menuItemSendNow_Click(object sender, EventArgs e) { WaitCursor waitCursor = new WaitCur...

SorenR

cblaze22 wrote: ↑
2019-05-07 14:07
Does Global Rules after Accept Message get executed before going in Queue? Also does it have a Message ID at that point?

I believe it has been answered elsewhere.

SorenR

Ok work with me here. I have posted that exact code you did multiple times without much luck on a good response. If I wanted to use that code to send something right away, based on say a header, where would I put it? The OnAcceptMessage doesnt have a ID and that is when its placed in the queue righ...

SorenR

Is there a method that is available , that has the ID, but is called before it goes into the queue or right after it goes in the queue. My goal is to send the email immediately based on a header instead of say waiting in the queue for a hour to be processed because an important email is backed up. ...

SorenR

Thank you that seems to have cured the issue with the scripts not running. However, I am now seeing messages corrupted by the time they get to Outlook (flow is appliance -> hMailServer->Office 365->Outlook). It looks like they are being truncated - I got a large email that Outlook left in Base64 en...

SorenR

It appears that the "Send Now" button in the Delivery Queue window resets delivery time for the specific oMessage.ID and then restarts the delivery engine. private void menuItemSendNow_Click(object sender, EventArgs e) { WaitCursor waitCursor = new WaitCursor(); hMailServer.DeliveryQueue deliveryQue...

SorenR

I found this in the code base below. The Message ID is not available in the OnAcceptMessage, however if you hit .Save like it shows below, will that assign an ID to the message so we can send it out for delivery right away. PLEASE SOMEONE CONFIRM! [Test] public void TestAddTextDuringSending() { hMa...

SorenR

cblaze22 wrote: ↑
2019-05-07 06:54
Missing
Code: Select all
regex.MultiLine = True

of course it does... sorry.

SorenR

palinka wrote: ↑
2019-05-06 14:01

As far as I'm concerned, HELO = IP is spam even if its presented in brackets per the "code".

The HELO check for [IPv4], [IPv6] or FQDN is to satisfy RFC, not anti-SPAM. It will however filter out various bots using malformed FQDN or simple IP greetings.

SorenR

Sub OnDeliveryFailed(oMessage, sRecipient, sErrorMessage) Dim regex, matches, match, strResult, sURL Set regex = New RegExp regex.IgnoreCase = True regex.Pattern = "^(?:.*Remote server replied:\s)([0-9]{3})(?:\s.*)$" Set matches = regex.Execute(sErrorMessage) If matches.Count >= 1 Then Set match = ...

SorenR

I need a VBScript to Grab Status Code and Test If 500 or higher. I can do this in .NET no problem but VBScript syntax is a little harder for me. The pattern is below but how would i test the string below to grab the 421, then do an IF statement on it (statusCode >= 500)? ^.*Remote server replied: (...

SorenR

Todays flavor :mrgreen: Disclaimer. Not all variables are declared in the sample code.... Line 583 is Dim... Sub OnHELO(oClient) Dim oXML : Set oXML = LoadXML(XMLDATA) Line 667 is the Dim... Sub OnAcceptMessage(oClient, oMessage) Dim oXML : Set oXML = LoadXML(XMLDATA) No longer needed. When you rem...

Search found 3003 matches