Email Error: Server Response Was Not Available

Dec 8, 2006

I found the below code in one of the posts and it was working fine uptill few days back. now, i get the error Run Time error '-2147220975(80040211) The message could not be sent to the SMTP server. The transport error code was 0x80040217. The server response was not available

Sub CDO_Send_Workbook()
Dim iMsg As Object
Dim iConf As Object
Dim wb As Workbook
Dim WBname As String
Application. ScreenUpdating = False
Set wb = ActiveWorkbook
WBname = wb. Name & " " & Format(Now, "dd-mm-yy h-mm-ss") & ".xls"
wb.SaveCopyAs "C:/" & WBname
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
iConf.Load -1 ' CDO Source Defaults....................

View 2 Replies


ADVERTISEMENT

Vlookup Error: "Please Enter Vaild Numeric Response'

Jul 10, 2009

I have been doing vlookups for ages and have never seen this error. The vlookup works in some columns but not in others.

View 9 Replies View Related

Excel 2010 :: Error VBA 462 Remote Server Not Found

Nov 2, 2013

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

[code].....

View 1 Replies View Related

Spacing Error With Email Macro

Dec 19, 2009

The email macro I set up didn't work when I referenced the sendto from a cell in sheet 2; I changed it to reference an email address on sheet 1 and it worked with spacing errors. I need to fix the spacing errors, and I need to be able to pull the email from sheet 2. Code referencing sheet 2:

View 3 Replies View Related

Excel To Email PDF Error Message

Oct 18, 2013

I have an excel sheet that on the macro is saves and then sends a pdf via email. but outlook wants me to click to allow the application to send an email. Is there a way to bypass this?

View 6 Replies View Related

'For Without Next' Error -Email/Message Box Combination

Nov 25, 2009

I have built the following macro by but get the message 'For without Next' indicated on the End Sub line. I can't seem to figure out what the problem is using 'Help', any ideas on why this is tripping out?

View 9 Replies View Related

Run-time Error '1004' Email Hyperlink

Aug 14, 2006

I am using the code below to send emails from my Outlook Express. The code is working fine. Recently, I added additional email addresses into this code. When I did, I got an error message. The error message is below. Please help me modify this code or propose an alternative because I need to send out many emails. I prefer not to use Outlook unless I have got no choice....

View 5 Replies View Related

Email Single Sheet. Run-time Error 438

Dec 7, 2006

I'am trying to send a single worksheet by copying it out of workbook and saving it, and after sending I want to delete the temporary file. But I get a Error message: 'Run-time error 438: 'Object doesn't support this property or method

Sub SendWeekrapport()
Dim wb As Workbook
Dim addr As Variant
Dim bestand As String
Call SelectWeekrap
addr = Array("myname@mycompany.com")
Application. ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs Range("AG3").Value & "bestand" & Range("b2").Value & ".xls" 'amend to suit
.SendMail addr, " Attached Timesheet for " & Range("B2").Value
.ChangeFileAccess xlReadOnly.............

View 5 Replies View Related

Excel 2010 :: VBA Error When File Opened From Email?

Aug 30, 2012

I've got a file that works fine on my computer. When I email it to anyone with 2010 and they open it from their email account (Outlook 2010), the file automatically opens up in 'Protected Mode'. If the user selects "Enable Editing" the user receives 'Run Time error 91: Object variable or with block variable not set'.

If the user closes out the vba error and saves the file to their computer and reopens the file, it works fine.

BTW, it is not a complex macro, it is error out at

ActiveWorkbook.Sheets("Worksheet").Select

View 1 Replies View Related

Error When Trying To Embed Picture Into HTML Body In Email - Excel VBA To Outlook

Sep 3, 2012

I just cant get this working, and I cannot see why....

I try to set the image address like this:

(With an extra space after)

View 5 Replies View Related

Excel 2007 :: Error In Creating Email Message In Body Text

Mar 16, 2014

I've set up an email to be sent via a macro (excel 2007 and outlook) and I expanded the body of the message and it now comes up with an error "Compile error: invalid outside procedure"

It was working when I only had 4 lines and now it's not working.

strbody = "Hi," & vbNewLine &_
"abc." & vbNewLine &_
"def." & vbNewLine & vbNewLine & _
"ghi" & InputBox("Enter Response date (dd/mm/yyyy)") & vbNewLine & vbNewLine & _
"jlk." & vbNewLine & vbNewLine & _
"lmn" & vbNewLine & vbNewLine & _
"ABC" & vbNewLine & vbNewLine & _
"XYZ" & vbNewLine & _

[code]....

View 3 Replies View Related

Runtime Error 4065 - Pasting Copied Data From Excel To Outlook Email Body

Apr 24, 2014

I have a VBA excel file that pulls data from a CSV file downloaded from a link. I format this data into a table through excel and then copy it over to Outlook. This is where the problem is. I get a runtime error 4065 for "file is locked for editing".

View 1 Replies View Related

Excel 2010 :: Macro To Send Email Now Fails With Runtime Error 1004 - Mail System Failure

Aug 23, 2012

I've been using a macro successfully for the last couple of years, but this morning when I went to use it, it decided to fail. I have a workbook which contains various spreadsheets. The macro that has failed performs the following tasks:

1. It copies a list of email addresss from an external workbook to a sheet in the current workbook (still works)
2. It copies the referral sheet I want to send to a new file, and saves it with an appropriate filename to an appropriate folder (still works)
3. The macro then creates an email with a standard subject line, attaches the new worksheet and emails it to each of the addresses as above (broken)

The error message is from Microsoft Visual Basic. "Run-time error '1004': Mail system failure. Check your mail installation."

I'm guessing there is a setting somewhere in Excel that has changed as part of an update.

I've been through a number of the options in the developer menu to remove any obvious restrictions (& reopened excel afterwards), but so far it hasn't resolved the problem.

For what it's worth, here is the macro code.

With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Run "PullInSheet1"
Dim oldbook As String

[Code] .......

In case you're wondering about the pullinsheet code, I'll add it below - but I probably grabbed it from this forum a couple of years ago (like some of the above) & just made some changes.

Code:
Sub PullInSheet1()
Dim AreaAddress As String
'''''' Sheet11.UsedRange.Clear
Dim ClRange As String
ClRange = "= 'L:ADMINEMPLOY SERVICES" _

[Code] ........

There are a couple of things I've wanted to do to improve the macro, but I couldn't justify the need to spend time working it out (since writing spreadsheets isn't really my job). Since it's broken at the moment, I can...

1. I'd like to create a subject line that reflects the name of the person being referred. For some reason though, anything other than text in the cell reference caused an error for me. eg, I tried using concatenate to create my subject line, but it didn't work.

2. I'd like the copied sheet to contain all of the formatting of the original sheet. Presumably there is a paste option that will do this and I just picked the wrong one.

The mailsystem we use is Groupwise 8. I couldn't find any settings in that program that have been changed, or that I could change.

I should change the extension from xls to xlsx in the code since I'm using Excel 2010 (but changing it doesn't fix the problem).

View 4 Replies View Related

Msg Box Response Is Ignored

Apr 26, 2009

I am trying to achieve a response from a msgbox which will either continue with the sub or exit. I think my code is right but it doesn't seem to work and just carrys on regardless.

View 6 Replies View Related

Response Log

Dec 17, 2007

I'm trying to find a formula I can use to figure response time. The working hours are 7:00 AM to 3:00 PM and I do not want to count the hours between 3:00 pm and 7:00 AM of the next day.

Example:

Cell A1 has the call in DATE 12/06/07 and cell B1 has the call in time of 10:00 AM.

Cell C1 has the response date of 12/07/07 and cell D1 has the time of 9:00 AM.

So what I need is a formula in cell E1 that would count from 10:00AM untill 3:00 PM on 12/6/07 then pickup the count on 12/07/07 at 7:00 AM and go untill 9:00 AM.

So in this Example the final response time would be 7 hours or 7:00.

View 9 Replies View Related

Select Only One Response

Aug 11, 2008

Trying to accomplish a bit of data validation...

4 cells
A1 B1 C1 D1

The only acceptable input for these cells in a 'x'
If I place an 'x' in any one of the four cells than the other three must be blank.

View 14 Replies View Related

Return A Blank Response

Jan 4, 2009

if cell a24 has nothing in it how can i make sure a77 is blank at the moment it returns a zero

View 2 Replies View Related

IF Formula Response Y Or N In Column

Jan 27, 2009

I would like a formula which will give a Y or N response in Column C.

If there is content in Column A or B the result should be Y.
If Columns A or B are empty the result should be N.

Example 1
Column A = 2
Column B = 0
Column C = Y

Example 2
Column = 0
Column = 0
Column = N

View 2 Replies View Related

Getting Formula To Remove 0 Response

Dec 14, 2012

I have this formula: =(CONCATENATE(COUNT('Master Report'!R8:R34)," ",IF(COUNT('Master Report'!R8:R34)>0,"Departments are over Action OI 50%","")))

when there is nothing to count, it places a 0. I want to to be blank. How can I achieve this.

View 5 Replies View Related

How To Dim A Response (from Input Box) Throughout Different Modules

Jan 21, 2014

I'm working with a substantial amount of code (which, due to its size, has been spread out into different modules). Whenever I transition from one module to the other, I have placed a msg at the beginning of each module to prompt the user to simply insert an integer to signify which version of the automation that is run. The following is an excerpt of a sample msg

[CODE]
Dim Msg, Title As String
Dim MyInput As Integer
' Define message."

[Code].....

Where, whatever report is being run, will be the same throughout all of the modules (for example, if you run the "Day" Report" at the beginning, the rest of the automation should be run using the "Day Report" code, not the "Night Report").

Is there a way to do one of the following

1. Label the input of "Day Report" or "Night Report" at the beginning of the automation (where the above except of code is how that would be done), and that can then be the determinant through the rest of the modules

2. Set my code in a specific module to, when it completes, automatically go to the same style of report (Day or Night) in the next module.

View 1 Replies View Related

Trying To Prepare For Every Possible Input Box Response

Jul 25, 2008

I have an input box that should only have numeric input. I have arranged for it to start loop back to the beginning of the box if someone enters letters instead of number, simply hits enter instead of making an entry, exiting on cancel. Now I need to have it loop if someone hits the space bar one time or more. Here is what I have:

Delta:    On Error GoTo ErrHandler1    Response = Application.InputBox(Prompt:=MyPrompt, Default:=MyPrompt2, _    Title:=MyTitle)    If Response = 0 Then GoTo Delta    Z = Response    If Response = Cancel Then    MsgBox ("You have chosen to exit the macro. Shutting down.")    Exit Sub    End If    If Response = False Then GoTo Delta    If Response = 0 Then GoTo Delta

View 9 Replies View Related

DropDown List Response Before Next If

May 10, 2006

Trying to Have a User Pick A response from the first drop down list before the second is activated and then after they choose from that list have an error message appear if the vlookup formula returns a #N/A. Here is the code in it's entirety the problem area is in the Elseif Pipe category Right now it doesn't bug but it also doesn't wait for a choice to be made it just spits out all the messages

Private Sub Worksheet_Change(ByVal Target As Excel. Range)

Dim Add As String, Size As String, Sch As String
With Range("c11:c52"). Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=MaterialList"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With

View 9 Replies View Related

Determine MsgBox Response

Sep 27, 2007

Private Sub CommandButton1_Click()
Dim hojaRES As Worksheet
Dim howMuch As Long

Set hojaRES = ThisWorkbook.Worksheets("Resultado")
howMuch = 0

If total.Value = "" Then
MsgBox "¿Are u sure u want a cero?", vbYesNo, "the total value is 0"
End If

End Sub

I need to set the value of howMuch to 0 if one selects YES and ask for a new entry if one selects no. How can I specify the behaviour in depending on what the user decides?

View 3 Replies View Related

Error Trap That "a Program Is Trying To Send An Email On Your Behalf"

Mar 3, 2009

Am using a email notification macro but want to error trap that "a program is trying to send an email on your behalf" thing. What i would like to do is if the user says "no" then a Retry/Cancel msgbox comes up with the prompt "Please select yes to enable a submission notification to be sent on your behalf" then if they select retry, the macro is re-run, if they select cancel, then only the latter portion of the macro is run.

View 3 Replies View Related

Getting Error "438" While Trying To Send Email Thru MS Outlook 2007

Oct 31, 2008

I am using the following code to send an email thru outlook, its working fine when I am using Microsoft Office 2003, but in MS Office 2007 this code is returning a run time error 438 while calling objOutlook.FnSendMailSafe.

View 5 Replies View Related

Data In Two Cells Return Response In Third

Jul 30, 2014

I am trying to get Excel to search A1 and B1 for specific information and return a result in C1.

E.g. If A1 contains the text "Jumping Castle"
and
If B1 contains the text "4"
Then
C1 will produce text of "170"

But the formula must also detect and return a different amount if the information in B1 changes.

E.g. If A1 contains the text "Jumping Castle"
and
If B1 contains the text "7"
Then
C1 will produce text of "250"

View 5 Replies View Related

IF Multiple Cells To Give Set Response?

Oct 29, 2012

long time reader, 1st time poster:I have a spreadsheet which uses =F to give set responses i.e.

Cell H35= =IF((G7-G35)=0,"No Issue",IF((G7-G35)>=1,"System/Paperwork do not Match",IF((G7-G35)

View 3 Replies View Related

Searching For A Response From Specific Person

Apr 15, 2014

Is there a way to search responses from a specific Person? I think it was before the Mr Excel format change. Domenic was the responder.

View 2 Replies View Related

Initiating A Response When Entering Into A Cell

Mar 20, 2008

I have an Excel worksheet that when a user enters something into cell A1 I want to clear cells (b2:b20). If I use an object, I can attach a macro to it, but I don't want to use an object. I want to use an Excel cell and then when the user types into it, I want to perform an action.

View 9 Replies View Related

Conditional Formatting With If Statement - Response Due Column

Mar 25, 2014

I created added conditional formatting to the Response Due column, to keep track of when response was due.

I only want the conditional formatting to be applied if the cell next to it is blank.

For example, the last one on my attachment is due 3/26/14 but I have already submitted a response (see column K)

What can I add so that only those dates next to a blank in column K get the conditional formatting?

Sample.jpg

View 2 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved