VBOffice

Dateien öffnen und speichern

Das VBA-Script zeigt, wie Sie den Inhalt einer Datei lesen bzw. schreiben können.

Zuletzt geändert: 20.01.2006 | Aufrufe: 77.729  | #14
◀ Vorheriges Beispiel Nächstes Beispiel ▶
ReplyAll ReplyAll
Mit diesem Addin für Outlook erhalten Sie in verschiedenen Situationen eine Warnung, bevor Sie auf eine Email versehentlich allen anderen Empfängern antworten.

Für Dateioperationen wird gerne auf die Scripting Runtime verwiesen. Es geht aber auch mit deutlich weniger Overhead.


tip  So fügen Sie Makros in Outlook ein
Public Function ReadFile(sPath As String) As String
  On Error GoTo AUSGANG
  Dim lFileNr As Long
  Dim sText As String

  lFileNr = FreeFile

  Open sPath For Binary As #lFileNr
  sText = Space$(LOF(lFileNr))
  Get #lFileNr, , sText

AUSGANG:
  If lFileNr Then Close #lFileNr
  If Err.Number Then Err.Raise Err.Number, Err.Source, Err.Description
  ReadFile = sText
End Function

Public Sub WriteFile(sPath As String, _
  sText As String, _
  Optional ByVal bAppend As Boolean _
)
  On Error GoTo AUSGANG
  Dim lFileNr As Long

  lFileNr = FreeFile

  Select Case bAppend
  Case False
    Open sPath For Output As #lFileNr
  Case Else
    Open sPath For Append As #lFileNr
  End Select
  Print #lFileNr, sText;

AUSGANG:
  If lFileNr Then Close #lFileNr
  If Err.Number Then Err.Raise Err.Number, Err.Source, Err.Description
End Sub
SAM SAM
Legen Sie fest, mit welcher "Identität" Ihre Emails beim Empfänger erscheinen sollen. Mit SAM bestimmen Sie den Absender und Speicherort für Emails anhand von Regeln.
email  Senden Sie eine Nachricht