Tabelle an Outlook übergeben incl. Textbausteine

[volti]

In der Tat, "Adlerauge" Andre, 
ist das nicht nur von Vorteil, sondern unerlässlich dort noch den fehlenden Stern einzubauen.

If Not sDateiname Like "*.xls*" Then

vielleicht auch besser so

If Not sDateiname Like "*.xlsm" Then

Hatte ich in Ermangelung einer Testmöglichkeit vergessen und führt dazu, dass immer ".xlsm" angefügt wird.
Möglicherweise ergibt sich, falls im besagtem Feld schon der richtige Dateiname mit Suffix steht, ein dann "falscher" Dateiname.
Ob dieser nun zum Fehler führt, kann ich nicht sagen, wohl eher nicht, da auch doppeltes Suffix gültig ist.

Gruß
Karl-Heinz

[depi1962]

Hallo,

nach ein paar Tagen Abwesenheit, hatte ich heute ein bisschen Zeit, mich mit diesem Projekt wieder zu beschäftigen.

Code:

Private Sub SMsenden()
  Dim sDateiname As String
 
  With CreateObject("Outlook.Application").CreateItem(0)
      .Getinspector
      .To = Range("z11").Value
      .Subject = "Achtung: " & Range("I5").Value
      .body = "Sehr geehrte Damen und Herren," & vbLf _
                & "es wurde ." & vbLf _
                & "Bei Fragen stehen wir gerne zur Verfügung." & vbLf & vbLf _
                & .body
 
      .Attachments.Add ThisWorkbook.FullName
      .Display
  End With
End Sub

ich habe aus allen Vorschlägen was zusammen gebastelt und das Wichtigste: es funktioniert
es fehlte mir ThisWorkbook.FullName




ich danke Euch
Gruß Detlef

[snb]

Mir scheint

Code:

Dim sDateiname As String

überflüssig.

Und noch einen Vorschlag

Code:

.body = replace("Sehr geehrte Damen und Herren,~es wurde .~Bei Fragen stehen wir gerne zur Verfügung.~~","~",vbLf)