Hi Experts

I am using Redemption to send emails from an Access 2003 database. This has been working fantastically...until now. This morning when trying to send emails we all get the circle of death and have to kill the program. I then went on to purchase the latest Redemption version thinking this will fix the problem. This however made it worse and threw errors when trying to open the database.

Does anyone have any experience using Redemption and can help me with fixing this problem?

Thank you

Adrienne

Hi

I need your help on a macro. I copy from a website a latitude / longitude in this format: "47.123456;-79.987654"

What i'm trying to do is to paste the latitude in the Latitude Textbox and the Longitude in the Longitude Texbox.

So the delimiter will be: ";". The reason is that the number of digits after the decimal can vary.

So in Longitude Textbox, i will have: "47.123456"
In Longitude Textbox i will have: "-79.987654"


Then, the final touch will be to only keep the 4 last digits after decimal in each textbox. The value cannot be rounded. It must keep the exact same 4 digits after decimal.

I'm adding a project sample where you can copy to clipboard a latitude and longitude. Then when you click on Paste Latitude and Longitude, it should update the proper Textbox.

How can i do that?

Thank you for your help.
VB6-Copy-Paste.zip

I have a website hosted by WIX which does not allow me to put a .txt version file on their site.  Previously my app would check to see what current version was listed in the text file before applying an update.  I was thinking about putting the version number on a web page but the question is how would I read the webpage using vb6?  What would be the proper syntax?

Here is what I used to use:

[code]'Checking for latest version-----------------------------
cdata = Inet1.OpenURL("www.wxxxxx.org/version.txt", 0)


If cdata > 27.6 Then[/code]

Hello experts,

I have the following procedure in order to reset & delete the various guides.

Sub DeleteGuides()
    With ActivePresentation.Guides
        ' Delete the second guide
        .Item(2).Delete
    End With
End Sub

Select all Open in new window

However when I launch it, I am not able to reset all of guides

Could you please  help me to adjust?

Thank you in advance for your help.

Hello Experts,
This is a VB6 very small app that has been working fine for decades
the nice things users like about it are that it shows a percentage number when transmitting... and its pretty fast.

For some reason, it started showing the following message
" 503 This system is not configured to relay sender from an anonymous sender. "

Please your advice,
Regards
_07_VB6-send_mail.rar

Hi Experts,
Looking for a script that will perform the following
open a given spreadsheet, loop thru all columns/rows and replace all data as follows. (except for first row)
for every character found, replace it with letter A
for every digit found, replace it with 1
should leave any special character like slashes or space intact.
Thanks

I need a copy of msflxgrd.ocx verion 6.1.98.6.   I have msflxgrd.ocx version 6.1.97.82 but my Security Vulnerability Check states that I need version 6.1.98.6.
This is a 32 bit version.

The required MS updates state that I need VB 6.0 installed.

I would like to get some information from outlook. Basically, get the number of emails received every month, but not just for the current view (this is what my code does right now, fut for all subfolders, up to 2 depth). I have tried with this:


'The following codes are working to count by day
Sub CountReceivedEmailsbyDay()
    Dim objItems As Outlook.Items
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim strMonth As String
    Dim dReceivedTime As Date
    Dim strReceivedDate As String
    Dim i, n As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    Set objItems = Outlook.Application.ActiveExplorer.CurrentFolder.Items
 
    objItems.SetColumns ("ReceivedTime")
    strMonth = InputBox(“Enter the specific month.(Format: yyyy-mm)”, “Specify Month”)
 
    If strMonth <> "" Then
       n = 0
       For i = 1 To objItems.Count
           If objItems.Item(i).Class = olMail Then
              Set objMail = objItems.Item(i)
              dReceivedTime = objMail.ReceivedTime
              strReceivedDate = Year(dReceivedTime) & “-” & Month(dReceivedTime)
              If strReceivedDate = strMonth Then
                 n = n + 1
              End If
           End If
       Next i
 
       strMsg = "You have received " & n & " emails on " & strMonth & "."
       nPrompt = MsgBox(strMsg, vbExclamation, "Count Received Emails")
    Else
       nPrompt = MsgBox("Please input the specific month!", vbExclamation)
    …

Wanted to replace data from one column to another.

For example:
On the "OPEN" Tab - On column AB if there is something there then that should go to column J and what's in Column J should be in Column K.  The end result should look like what's in the "SHOULD BE" tab.  This should only happen when there is something in column AB

See attachment.
C--Users-lfreund-Documents-EE---COL.xlsx

These two lines of vb6 code I am trying to translate to C#:

mskFromDate.Text = Format(Date - TimeSerial((iNumDaysBefore * 24), 0, 0), "Short Date")
    mskToDate.Text = Format(Date + TimeSerial((iNumDaysAfter * 24), 0, 0), "Short Date")

I have this so far. I know it is not right.

var dt = string.Empty;
                dt = Convert.ToString(DateTime.Now.ToOADate() - (NumDaysBefore * 24));
                this.dtFromDate.Text = Convert.ToDateTime(dt).ToShortDateString();

Anybody have thoughts? I can't believe in vb6 they let folks subtract dates and numbers.