I've been trying to send emails through an SMTP server in various ways. I've been able to send email using CDO going directly through an SMTP server on my same local network (not requiring a username and password). But now I am trying to send email from my home with the SMTP server I am using that is hosted by some commercial company. I used the code below, which is sponsored by Paul Sadowski:
Sub sendMailRemote()
'Sending a text email using authentication against a remote SMTP server
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM.......................
I have CDO set up on in an excel workbook contained on our network. We have been using the following code for well over a year. It works flawlessly on 12 of our 13 computers. I can send mail through Excel using the following code on my computer. But not on a particular computer. The user at that particular computer can't send mail through the CDO code from her computer but can from other computers. This problem is definitely isolated to a computer. I had tech support un-install office, use a cleaning tool, then re-install office. The problem persists. Is there a particular setting on this computer that needs to be set that I am unaware of? Here is the code...
I have a database file that I use for tracking "Requested Laptops" ( so that technicians can request the model they need ) and what model they want. There are three of us that distribute laptops ( asset managers ), and we have a box that we use to say we distributed it. For example:
TECH REQUESTING .. . . . DATE . . . . MODEL NEEDED. . . . . FOR WHO . . . . . . . STATUS OF REQUEST . . . . . SERIAL NUMBER PROVIDED. . . . . . ASSET TAG PROVIDED.
Those are the columns. The "Status of Request" Column uses data validation "list" and can either say:
When the technician first requests, he selects "NOBODY/PENDING" and there is Conditional formatting that highlights the row RED so that we can easily see that there is a pending request. Once laptop is distributed, we change this field to Wes distributed for example, and the row is highlighted green.
Now that you have the basics of the file, what I'm looking to do is find out if an email can be sent either by Outlook or SMTP, so that when a technician enters the request and changes that field to NOBODY PENDING, an email is sent to all 3 asset managers saying "Please be advised that an asset has been requested by [TECH REQUESTING]. expedite."
I worked with an Ozgrid macro until it was what I wanted using files on my local PC. I then edited the macro to get data from a closed workbook on a remote server. I now have a Run-time error '1004'
Method ' Range' of object'_Worksheet' failed and the debugger takes me to this line of code.
With Sheet1.Range(AreaAddress)
The only thing I have changed up to this point in the macro, is the address of the file on the remote server.
I am at a loss with this now. Am I trying to do the impossible? ....
I have created a macro that creates a powerpoint from excel in office 2010. I have followed all the required steps, like adding object library and all. but still many times the PowerPoint crashes at slide7, 8 or 9 and have to restart. I generally get the above given error.
Code: Sub CreatePowerPoint() Application.ScreenUpdating = False 'Macro Created by Pallavi NC (pallavi.nc@hp.com) 'Add a reference to the Microsoft PowerPoint Library by: '1. Go to Tools in the VBA menu '2. Click on Reference '3. Scroll down to Microsoft PowerPoint X.0 Object Library, check the box, and press Okay 'First we declare the variables we will be using
I have an excel sheet that our sales staff enters data on and I'm wondering if there is a way to send an E-Mail to certain people if they answer yes in cell S44? I want this to send an E-Mail telling the intended person that they need to perform a "First Article Inspection" on an item that sales has just finished with. The excel is 2003 and everything runs through our network.
I need to send 25 mails on daily basis to my client. All fields in mail are common except recipient and attachments. Every mail has 3 excel attchments. So i created a macro in excel which sends mail as per my requirement but picks up only one attachment from the path i have mentioned in the vb code. Whole macro is running perfectly. I just want to know what modification i should do in that code to attach more than one excel file to the mail from the path i have given. Below is the code:
Sub macro1() Dim sFolder As String Dim Folder As Object Dim file As Object Dim fso As Object
Normally i am able to send mail using gmail with example text by typing in body field. But I want to send Range(A8:D17) as message body.
First I defined body1 as variable range, then i set body1 as value of my required range in body of message i used variable 'body1' but it is giving error "run-time error '13' , Type mismached "
[Code] .....
Where I need to change in ordger to send mail using range as body .
I have a workbook that has multiple worksheets and I would like to use a command button to e-mail just one selected sheet. I want to create the single sheet as an attachment on a new e-mail message but leave the addressing to the user as it will vary, and not save the single sheet. My challenge is that the users have a variety of different e-mail clients (Outlook, Lotus Notes and others).
I am trying to write a macro to send mail on every Friday and also on last day of every month. If the last day of the month falls on Saturday or Sunday then the macro should mail on Friday. I have written a separate macro to send a mail. I have also written to check day(ie Monday, Tuesday etc) of today. If today is Friday or month end i can send mail. I dont know how to tell the macro to send mail on friday if the month last date is saturday or sunday.
Sub done() Dim Dat As Date, x As Integer, y As Date, sorry As String Dim str As String sorry = "Today is not friday or month end. So i cannot send mails" str = WeekdayName(Weekday(Now()))
I am hoping someone with excel experience can be of help to me with an unusual request for excel.
Assume cell A1 = 2, B1 = 3 and i wish the sum of this (5) to appear in cell C1. Very straight forward so far, however i wish the result to appear in C1 when i left click on a cell other than C1, say for example D7.
I remoted most of my number crunching stuff to a dll.
It work fine except for a few strange things that I observed like from time to time a strange message "Error in loading DLL" even though everything works fine. This message appears only when entering the main formula in the formula, and is no problem at all in usual work.
When I investigated, I noticed in the "windows task manager" that one instance of excel remains open even after I have closed excel. This phantom excel process is maybe related to the other problem I explained above.
Instead of calling a VBA function, it creates a VB6 object from this dll and uses the methods of this object. In this way I have remoted the number crunching functionality.
The main parameter passe in this process is a reference to the original workbook. I need it because the number crunching functions need to read data from the workbook.
I made it sure to terminate the life of the object properly on both sides by ad hoc obj=Nothing statements.
Still I think that the "garbage collection" or the "terminating" is the cause of the problem.
I've just discovered that if you include the line: Application.IgnoreRemoteRequests = False. in a Workbook_BeforeClose event, and then close the workbook using ActiveWorkbook.Close
the
Application.IgnoreRemoteRequests = False
line is itself ignored! Code attached - the only workaround I can come up with is also included (to re-enable IgnoreRemoteRequests BEFORE the workbook is closed programmatically) - can anyone confirm this, or break it, or come up with a better explanation or workaround?
i have an excel file with some vba code that includes some functions of a third party add-in also. It works fine when i open this file on the host machine. (Assuming host machine is where the Excel File is placed) But when i try to open the same file from some other computer(remotely/by sharing folder), the add-in malfunctions because of one reason that it considers the remote machine to be its host. Is it possible to set a permanent host machine for that any add-in. Or is it possible for that add-in / Excel file to do its calculations and updation of links on the host machine where it is placed.
I send out multiple versions of the same sheet every month. I want to be able to have a script run every time the spreadsheet is opened to send an electronic log directly to a text file on my machine (or something similar)
Is this possible or some sort of a pipe dream? It would be used for me to monitor usage of the sheet, and i'd require only the same of the spreadsheet (which is always unique), the date/time and possibly the computer name / username? (not really needed)
I have an excel workbook that lists the number of mailboxes on several exchange servers. Because this info is put in manually by several people throughout the day there is a chance for mistakes. I can use remote desktop to get into these servers and check all these but when you have over a hundred (Enterprise Level) of these different mailbox stores to check, it takes a while and just isn't fun. I have a friend who made a vbscript file that can check them all but I don't have that code but now I know that it is possible...well with vbscript anyhow.
is it possible for excel to access a remote computer? and how would this be done? If needed to we can be already remoted into it I just need help with the Syntax of how to then access it via some VBA.
My code should get the value of a hidden element from a form that is on a remote website. Then it should display that element's value on my excel worksheet.
One or the other of the 2 lines between the commented out lines should work. Instead the code runs until within a minute after the page has finished loading, and then stops completely without getting the hidden element's value.
Code: Sub work_damit() Dim ieApp As Object Dim URL As String URL = "http://www.craft-e-corner.com/p-2688-new-testament-cricut-cartridge.aspx" Set ieApp = CreateObject("InternetExplorer.Application") ieApp.Navigate URL
I need to find a way to collect current CPU usage of a specific application on a remote server or the top applications that are using the most of the processor's time on a remote server?
I have a spreadsheet which I used in a previous job, which was set up by our old IT Department. Basically, it allows me to save information onto it, which I can then retrieve, (in any conditions/search fields i.e. in a date range etc) but the problem is; when I try to use it on my laptop, I look at the editor used for macros, I can see that the spreadsheet is linked to the servers of my old company. Therefore, I cannot use it myself
I do not know a lot about macros etc. but I can send a copy of the spreadsheet to anybody who is willing to help!
I think it is just a case of changing the macros/strings of where to draw and save information to/from, but I don;t know.
I am looking to further improve this code by adding the functionality of logging to a secure HTTPS server using username and password.
Code:
Sub TestFileExistsandDownload() 'This code will test a web address to see if a file exists 'If the file exists, it will download the file. ' It's a mixture of code retreived from 2 sites: ' [URL]... ' [URL]....
I'm trying to open a file from server.After doing all the changes I have to save the file back to the server in the same name. It is asking for save as option.it shouldn't. I want to save the file in the same path and in same name without asking the option of "Save as". I hv full permission for editing the file
I try to run a macro on my workbook everytime I open it by getting the data from the ftp file. This will be the service number for my customer. Both the excel and the data file are located in the ftp, so that I can retrieve the file wherever I go. Basically I got some code from the internet which work fine on the local network, but once it come to ftp server I am stuck there.
Public Function NextSeqNumber(Optional sFileName As String, Optional nSeqNumber As Long = -1) As Long Const sDEFAULT_PATH As String = "Ftp://mycompany.com" Const sDEFAULT_FNAME As String = "Service.txt" Dim nFileNumber As Long nFileNumber = FreeFile If sFileName = "" Then sFileName = sDEFAULT_FNAME If InStr(sFileName, Application.PathSeparator) = 0 Then _ sFileName = sDEFAULT_PATH & Application.PathSeparator & sFileName If nSeqNumber = -1& Then If Dir(sFileName) <> "" Then Open sFileName For Input As nFileNumber Input #nFileNumber, nSeqNumber..................
We have a number of internal office servers (Active Directory - Exchange - SharePoint "free" etc etc usual stuff) and I need to create an uptime/downtime calculator in excel with the facility to record the information on a daily, monthly and yearly bases but not sure how to go about this.
I would like a way to record on a daily bases what the uptime/downtime has been for each server and then to record the same for that month in a percentage.
For example in a 24hr period for each month of the year:
For that day Active Directory Server was UP for 24hrs. (100% uptime) - (0% downtime) X by the number of days in the month i.e. Over the month Active Directory has been UP for. (XX% uptime) - (XX% downtime)
Exchange Server was DOWN for 1hrs. (95.833% uptime) - (x% downtime) X by the number of days in the month i.e. Over the month Exchange has been UP for. (XX% uptime) - (XX% downtime)
SharePoint Server was DOWN for 1hrs. (95.833% uptime) - (x% downtime) X by the number of days in the month i.e. Over the month SharePoint has been UP for. (XX% uptime) - (XX% downtime)