Linkki aukaistavaan tiedostoon sähköpostitse

Uuden oppija kirjoitti:

Nyt kun olen makron saanut toimimaan niin että se lähettää sähköpostina tekstin KATSO TYHJÄSTÄ PÄÄSTÄSI minulle (Jos on Outlook käytössä. Nyt haluaisin että tekstissä olisi olisi mukana myös hyperlinkki jos on verkkolevyllä tiedosto esim. Y-levyllä (Y:\UUDELLE\OPPIJALLE\testauksia.xls), että sen tiedoston saisi auki tämän hyperlinkin kautta. En vaan millään saa toimimaan mitään mitä pieniä vinkkejä olen löytänyt netistä. Jos tämän hyperlinkin saisi tuohon strbody3-osioon.

Kiitoksia viisaammille tiedoistanne.

If Selection = 3 Then 'Viesti Uuden Oppijalle
Dim OutApp3 As Object
Dim OutMail3 As Object
Dim strbody3 As String

Set OutApp3 = CreateObject("Outlook.Application")
OutApp3.Session.Logon
Set OutMail3 = OutApp3.CreateItem(0)

strbody3 = "KATSO TYHJÄSTÄ PÄÄSTÄSI" ' & vbNewLine & vbNewLine & _
' "This is line 1" & vbNewLine &_
' "This is line 2" & vbNewLine & _
' "This is line 3" & vbNewLine & _
' "This is line 4"

On Error Resume Next
With OutMail3
.To = "[email protected]"
.CC = ""
.BCC = ""
.Subject = "TILATTU TYÖ"
.Body = strbody3
'You can add a file like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail3 = Nothing
Set OutApp3 = Nothing
End If

kirjoitti:

Anonyymi

Kirjoita kommentti

5000

Lähetä