Posts by XXX7
-
-
@KjBox Not working I still have duplicate.
=CHOOSE(RANDBETWEEN(1;4); $A$2; $A$3; $A$4; $A$5)
[tr]
[TABLE="border: 0, cellpadding: 0, cellspacing: 0, width: 91"]
[/tr][tr][td]
[TD="width: 121"]question1[/TD]answer 1
[/td][/tr][tr][td]answer 1
[/td][/tr][tr][td]answer 3
[/td][/tr][tr][td]answer 4
[/td][/tr]
[/TABLE] -
Here is my request:
I have one question A1 with four possible answers. (A2,A3,A4,A5)
But this one will give me double results, for ex. A2,A3,A3,A2. I try with RAND function but no success.Anybody have any idea how to solve this problem?
Thx
-
Re: db Access migration to SQLite code problem
issue closed, solution is to replace & with
-
Hi,
Because of limitation db access I need to migrate data to SQLite.
Migration finished ok, but I have problem in VBA it is not mae rutine in "small" part.
So I have here working code only ms access db in VBA. (two Cell selection)
for ex. this code working on access and sqlite in VBA.(one cell selection)
any idea for this issue?
Thx -
Hello,
I found some source for counting emails by dates, I was modified that source to work on my pc(win7-64 and office 2013-64).
Now this code working ok, but I still need some changes:
1.) How to setup count only emails which I receive today (ok, in folder will be ony received emails) I need only connect system date and add filter (only :))
2.) Count few folders
3.) Report print in any text filehere is the code:
Code
Display MoreSub HowManyEmails() Dim objOutlook As Object Dim objnSpace As Object Dim objFolder As Object Dim EmailCount As Integer On Error Resume Next Set objOutlook = GetObject(, "Outlook.Application") If objOutlook Is Nothing Then Set objOutlook = CreateObject("Outlook.application") End If Set objnSpace = objOutlook.GetNamespace("MAPI") Set objFolder = objnSpace.GetDefaultFolder(olFolderInbox) Set objFolder = objFolder.Folders("XYZ") EmailCount = objFolder.Items.Count MsgBox "Number of emails in the folder: " & Trim(objFolder) & " - " & EmailCount, , "email count" Dim dateStr As String Dim myItems As Outlook.Items Dim dict As Object Dim msg As String Set dict = CreateObject("Scripting.Dictionary") Set myItems = objFolder.Items myItems.SetColumns ("SentOn") ' Determine date of each message: For Each myItem In myItems dateStr = GetDate(myItem.SentOn) If Not dict.Exists(dateStr) Then dict(dateStr) = 0 End If dict(dateStr) = CLng(dict(dateStr)) + 1 Next myItem ' Output counts per day: msg = "" For Each o In dict.Keys msg = msg & o & ": " & dict(o) & " items" & vbCrLf Next MsgBox msg Set objFolder = Nothing Set objnSpace = Nothing Set objOutlook = Nothing End Sub Function GetDate(dt As Date) As String GetDate = Year(dt) & "-" & Month(dt) & "-" & Day(dt) End Function
-
-
Hello,
I need over VBA outlook count received mails(that day) in few folders(1,2,3) and send email with report few time per a day for ex. 11:00, 16:00 and 20:00.
If is possible in counting add the filter if sender = [email protected] then don't count that email.I already pay to ozgrid(10%) before post this.
Thx in advance.
-
-
I receive mail with multiple lines of data.
I process them, cut, select move to folder, reply etc.
But if I receive email with 3 line, I separate them on 3 new mails, only first one stay as unread other two become as read.CodeSet myDestFolder = myInbox.Folders("XYZ") objItem.Subject = strSub objItem.Body = strBody objItem.Move myDestFolder
I try with(stay read)
For this code I get error, object deleted
Any other idea?
-
-
Hello,
I have working code(outlook) if I get mail with only one phone number I pickup that info as string, search in db for Adress and replay.Problem is if I get list of that info listed in same mail.
For example;
Request- Mail body: +1234589456
Answer - Mail body: +1234589456 John DoeSo is it possible to work with this situation:
Request- Mail body:
+1234589456
+2222589456
+3333589456Answer - Mail body:
+1234589456 John Doe
+2222589456 Jane Doe
+3333589456 Jan Roethx
-
Re: problem with SqLQuery in VBA
nope!
honestly do not know how. -
Re: problem with SqLQuery in VBA
Yes you are right, one is "active", cannot be bout active string in same time (I will setup limitations before this function).
-
Re: problem with SqLQuery in VBA
thx for advice, but I have more question.
As strX can be Null, in same position can be strY, so function need to be working in bout direction even srtX is null or srtY is null.
thx -
Here is code:
but as you can see there is srtX which sometime is not active, when strX is not active, active is srtY.
So is it possible to implement bout string this function, and function will use active one?
something with OR...like this but not working...CodeSQLQuery "SELECT [a] FROM [b] WHERE [c]='" & strX or strY & "'", strFilePath, blnReturn, varArray
thx.
-
Re: varArray question
over SQLQuery from db.
-
-
Hello,
I am trying to check is it varArray = "".
I try with two (or more option):
1.)
2.)
Main problem are if I get "" value then I have problem.
any other idea?Thank you in advance,
BR