"diese datei hat eine größe von 0 bytes und wird deshalb nicht angehängt ".

Gerade wieder enstanden Duplikate, bei denen im Dateinamen der Computername am Ende angehängt wurde.

Die Originaldatei ist noch immer da und zusätzlich das Duplikat mit dem Computernamen im Dateinamen und mit einer Größe von 0 Byte.

Warum macht OneDrive so etwas?

Da mir dies ein zu großer Aufwand wäre habe ich nun einen Laptop neu aufgespielt, Updates alle installiert das Office neu installiert und upgedatet. Auch hier werden frisch versendete Mails mit 0 byte und ohne Anhang Klammer dargestellt.

Vielen Dank für Ihre Bemühungen.

Wenn ich eine Mail an mich selbst mit einem Anhang sende, wird diese im Posteingang mit Klammer und Größe angezeigt. Im Ordner gesendete Objekte wird die Mail wieder mit 0 byte und ohne Klammer angezeigt. In den Ansichtsoptionen ist alles ausgewählt.

Das selbe Problem hat auch ein Bekannter von mir.

Hallo Thomas,

deine Datei hat 0 byte und lässt sich nicht öffnen.

Probiere es nochmals mit Hochladen oder schau in mein Profil und schicke sie mir per Mail.

Claus

Option Explicit

#If Win64 Then

Private Declare PtrSafe Sub keybd_event Lib "user32" ( _

ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, _

ByVal dwExtraInfo As LongPtr)

Private Declare PtrSafe Function GetKeyboardState Lib "user32" ( _

pbKeyState As Byte) As Long

#Else

Private Declare Sub keybd_event Lib "user32" ( _

ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

#End If

Private Const VK_NUMLOCK = &H90

Private Const VK_SCROLL = &H91

Private Const VK_CAPITAL = &H14

Private Const KEYEVENTF_EXTENDEDKEY = &H1

Private Const KEYEVENTF_KEYUP = &H2

Property Get NumLock() As Boolean

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

NumLock = Keys(VK_NUMLOCK)

End Property

Property Let NumLock(Value As Boolean)

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

If Value <> CBool(Keys(VK_NUMLOCK)) Then

keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

End If

End Property

Property Get CapsLock() As Boolean

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

CapsLock = Keys(VK_CAPITAL)

End Property

Property Let CapsLock(Value As Boolean)

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

If Value <> CBool(Keys(VK_CAPITAL)) Then

keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

End If

End Property

Property Get ScrollLock() As Boolean

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

ScrollLock = Keys(VK_SCROLL)

End Property

Property Let ScrollLock(Value As Boolean)

Dim Keys(0 To 255) As Byte

GetKeyboardState Keys(0)

If Value <> CBool(Keys(VK_SCROLL)) Then

keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0

keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0

End If

End Property