Вопросы Теги

Макрос Excel: Ошибка времени выполнения '1004' Ошибка почтовой системы

"В то время как сначала это кажется, что было бы более надежно, это просто не увеличивает шанс отказа оборудования?"

  • С аппаратной точки зрения я не вижу, как она практически увеличивает возможности отказа. Там далеки ко многим переменным здесь, и я никогда не изучал вероятность, но упростите: Позволяет говорят, что Dell делает 1 плохой сервер на каждые 100,000, которые они делают. Ваши возможности изменились от 1 в от 100 000 до 2 в 100 000 (или 1 в 50 000). Таким образом да, дважды шанс, но все еще из-за масштаба возможности практически настолько не отличаются.
  • Я думаю, что перспектива является ключевой здесь. "Вы собираетесь для вдвое большего количества отказов". Возможно, с Вашей точки зрения, но и в сценариях, которые Вы дали, электронная почта работает на одном сервере и в ERP, работает на одном сервере. Таким образом с точки зрения электронной почты или erp (который является тем, о чем заботится бизнес), это - действительно то же. Если они не становятся одинокими, или как их пространство ;-)
  • Я думаю, что необходимо также посмотреть на него от люди точка зрения. Я думаю отказ из-за людей, ошибки, возможно, более вероятны, и этот способ, которым кто-то, вероятно, только завинтил бы один сервер за один раз. Это также помогает определить проблемы с вещами как загрузка. Если и электронная почта и веб-сайт работают на сервере, дополнительное время для обнаружения, где проблема.

Это никогда не это, простые, большие раскормленные серверы могут быть лучше сделаны или хуже сделанными. Они могут иметь более высокие качественные части, но возможно сделать больше тепла и не охлаждаются правильно. Раскормленный сервер имеет больше RAM, больше ЦП и т.д., таким образом, в конце, возможно, Вы имеете так же, как много центральных процессоров в обоих сценариях поэтому, возможно, сервер не является правильной единицей для размышления о.

Из-за сложности возможностей, независимо от того, что большинство экономически эффективных побед, я думаю. Если необходимо заплатить за лицензии, 1 большой сервер может быть более дешевым, чем несколько серверов меньшего размера в зависимости от структуры лицензирования.

1
задан 8 June 2011 в 18:22
1 ответ

Я могу только показать Вам код, что должен был перейти в то, так, чтобы моя электронная почта выключила кнопку в электронной таблице Excel, будет работать. Они изменили некоторые вещи, таким образом, старый код не работал так хорошо.

Private Sub EmailBlahbutton_Click()

Dim mOutlookApp As Object
Dim OutMail As Object
Dim Intro As String

On Error GoTo ErrorHandler

Set mOutlookApp = GetObject("", "Outlook.application")
Set OutMail = mOutlookApp.CreateItem(0)

With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With

'These are the ranges being emailed.
ActiveSheet.Range(blahblahblah).Select

'Intro is the first line of the email
Intro = "BLAHBLAHBLHA"

'Set the To and Subject lines.  Send the message.
With OutMail
    .To = "blahblah@blah.com"
    .Subject = "More BLAH here"
    .HTMLBody = Intro & RangetoHTML(Selection)
    .Send
End With

With Application
    .EnableEvents = True
    .ScreenUpdating = True
End With

ActiveSheet.Range("A1").Select
ActiveWindow.ScrollColumn = ActiveCell.Column
ActiveWindow.ScrollRow = ActiveCell.Row

Set OutMail = Nothing
Set mOutlookApp = Nothing

Exit Sub

ErrorHandler:
    Set mOutlookApp = CreateObject("Outlook.application")
    Resume Next

End Sub

Function RangetoHTML(rng As Range)
' Changed by Ron de Bruin 28-Oct-2006
' Working in Office 2000-2010
Dim fso As Object
Dim ts As Object
Dim TempFile As String
Dim TempWB As Workbook

TempFile = Environ$("temp") & "/" & Format(Now, "dd-mm-yy h-mm-ss") & ".htm"

'Copy the range and create a new workbook to past the data in
rng.Copy
Set TempWB = Workbooks.Add(1)
With TempWB.Sheets(1)
  .Cells(1).PasteSpecial Paste:=8
  .Cells(1).PasteSpecial xlPasteValues, , False, False
  .Cells(1).PasteSpecial xlPasteFormats, , False, False
  .Cells(1).Select
  Application.CutCopyMode = False
  On Error Resume Next
  .DrawingObjects.Visible = True
  .DrawingObjects.Delete
  On Error GoTo 0
End With

'Publish the sheet to a htm file
With TempWB.PublishObjects.Add( _
  SourceType:=xlSourceRange, _
  Filename:=TempFile, _
  Sheet:=TempWB.Sheets(1).Name, _
  Source:=TempWB.Sheets(1).UsedRange.address, _
  HtmlType:=xlHtmlStatic)
  .Publish (True)
End With

'Read all data from the htm file into RangetoHTML
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
RangetoHTML = ts.ReadAll
ts.Close
RangetoHTML = Replace(RangetoHTML, "align=center x:publishsource=", _
                      "align=left x:publishsource=")

'Close TempWB
TempWB.Close savechanges:=False

'Delete the htm file we used in this function
Kill TempFile

Set ts = Nothing
Set fso = Nothing
Set TempWB = Nothing

End Function
1
ответ дан 4 December 2019 в 01:32

Теги

Похожие вопросы