title image


Smiley "return" per VBA
Hallo,

ich suche den code für "return drücken".



bei Folgenden Makro wird der Link erst als Link erkannt, wenn man

Return drückt...und den code weiss ich leider nicht!



Wer kann mir bitte helfen?



Lieben Dank

Micha



hier der Code:



Sub Hyperlink_senden()

Dim Name As String, UNCName As String

Dim App As Object, Itm As Object

Dim Username As String



On Error GoTo myERR

Name = ActiveWorkbook.FullName

UNCName = GetUNCPath(Name)



Set App = CreateObject("Outlook.Application")

Set Itm = App.CreateItem(0)

With Itm

.Subject = ""

.To = ""

.body = "ich habe unten folgende Datei als Hyperlink angehängt!" & Chr(13) & Chr(13) & "Mit freundlichen Grüßen" & Chr(13) & "Michael " & Chr(13) & Chr(13) & "" & Chr(13)

'!!!!!!!!!!!!!!!!!!!!!!hier müsste der Code stehen!!!!!!!!!!!!!!!!!!!



'.Attachments.Add Name, 3

.Display

End With

Set App = Nothing

Set Itm = Nothing

myERR:

If Err.Number 0 Then MsgBox "Fehler " & Err.Number & " : " & Err.Description

End Sub











geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: