Type: Posts; User: westconn1
Search took 0.27 seconds.
i can now see an error in your code
pos = InStr(myItem.body, "Order Number: ") + 10as in post #9
does the macro run at all?
you will get a message box with the invoice number (or nothing) if it does run
if the format of the order ID string even slightly incorrect the macro will fail to find...
there are possibly several methods to achieve your result
the simplest is to merge to printer, using a pdf printer driver, there are several to choose from
alternatively there are pdf tools...
well that is not quite as i see it, it actually checks if there is a reference to and removes it if there is
you could try
sc_PricerImportService = CreateObject("MSSOAP.soapclient30")as it...
Set wb = Workbooks.Open("E:\A1\TIME SHEETS\2011-083 Piping BOM.xls", , True)
you could create a copy of the workbook then open that for viewing
overwrite the copy each time, to get...
that is fine then, just clarifying a point
is it working now or you still have error?
the code there does not put the email into word, it creates a text document, with a .doc extension, not the same thing at all
should have been changed to
If InStr(.body, "Order ID: " & invnum) > 0 Then
'code to do with each email goes here
Sub paypalActions(myMail As MailItem)
Dim olItem As Outlook.MailItem
Dim sText As String
Dim oFldr As Outlook.MAPIFolder 'dim for identifying the inbox
Dim oNs As...
have you tested?
are you matching the paypal invoice when it arrives? or wanting to loop through all the emails and mach all the paypal ones at that time?
where is the invoice id in the paypal...
If instr(olMail.body, "cash") > 0 then
note this is case sensitive, if you want to check for Cash or CASH as well, change to
If instr(0, olMail.body, "cash", vbtextcompare) > 0 then
have you updated your excel since the code was written?
as the line in red is exactly the same as the line above, the assumption left is the range the formula is being applied to must be the...
For Each cell In Columns("D").Cells.SpecialCells(xlCellTypeConstants)
' you could probably change this to
' if not isempty(cell) and ucase(cell.offset(, 14)) =...
yes i am sure it can be done, though i am not the best one to help as my word is pre-ribbon
in your connection string, you should specify whether of not the sheet contains headers (top row data or column name)
you may also need to add imex to the connection string to avoid data type errors...
usually only works with keystrokes, not mouse
what type of file is .exportedUI?
is it text or some proprietary format?
if the latter, what application normally opens these files?
do you just...
what happens with these? error? wrong result? nothing?
post what you have that is not working, and if possible a sample of emails to match
a quick google indicates you can not bind keys to macros in outlook
if you create a simple macro like
End Subthen add a toolbar button or qat item, for that...
or just comment the line and see what happens (use default)
on which line?
in which module is this code?
where is cboproducts? on the userform or elsewhere?
how are your macros called?do you want this to automatically happen when any email (with attachment) arrives?
for each cel in c_rng though some cells may get selected more than once
did you test the code i posted, just put all the column headers into the array
i tested before posting
my column headers, for testing, were just a single letter,
for yours try
if they were separate if statements rather than elseifs it should then run for all empty results
i would positively hate it if someone gave me a macro that did like this with no option to end it...
of course it would
the time function is separate from any timer code or control
what exactly is timerinterval? afaik forms have no property or method by that name, though i have not used any...
you could put a list of the required headers into and array, then
heads = Array("W", "P") ' add all required headers here
Set rng = Cells(r, .Match(heads(0),...
you can test to see if this works better
use 2 command buttons one for underline one for no underline (or a checkbox, whatever you like)
Set r = ThisDocument.Range
i assume this is in excel? please confirm
if it is a product list sheet, you can use excel's find method to find the inputted product code on the worksheet, then display result from any column in...
i think you were right before, just one owner field then add additional owner fields prior to merging, i believe there is a blank field option to avoid document having empty fields in it, in which...
noticeably, probably not in this case, though it is always better that things work as you intended
i do not know why this is happening as, according to the code posted, it should only find words...
you should be able to create a recordset using an SQL query, probably with an inner join, that will have a list of all the records you want to print, then use the recordset as the merge table
you need to study up on post #23
as you should be aware now, i can not give positive help on this, as it is very different to the vb6 /vba methods that i use
after editing the attachements (removing) and message text
sorry about the missing comma
while . are valid in filenames, i would still tend to avoid them too, just use all numeric...
of course, as i have stated several times i do not use .net
thank you for your explanation
does late binding still work without the PIAs?
while the method of working with different versions of...
within your program you can declare an excel variable with events
your program can then detect the excel workbook_before_shutdown event and cancel it if desired
if workbooks.count = 1 then xl will...
you could use Set oApp = getobject("outlook.application")
if your dropped file type is an outlook message, outlook has to be loaded before a file can be dragged from it
deleting the save...
are you referring to the line in my signature?
its always there, not specific to you
and what version of excel is installed now?
the downside of early binding is that the reference to excel is...
is this the program that was working previously?
or this the new program?
on reading the last post, i really think it is time you bit the bullet and write the new project from scratch, instead of carrying, all the code and conversion errors from vb3 on, forward to the new...
do they open in you put the url into ie browser window?
as these problem seem to be os and browser version issues, plus possibly whether adobe is installed and up to date, no one can really test...
Click Here to Expand Forum to Full Width