Es ist fast vollbracht. Die Makros funktionieren getrennt wunderbar. Klicke ich jedoch auf den Hyperlink um, das Makro im Modul zu starten erhalte ich die folgende Fehlermeldung : Laufzeitfehler '462' Der Remote-Server-Computer existiert nicht oder ist nicht verfügbar.
Nachfolgend der finale Code:
Im Arbeitsblatt
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Call E_mail_versenden
End Sub
Im Modul
Option Explicit
Sub E_mail_versenden()
Dim objOut As Object
Dim objMail As Object
Dim strText As String
Dim strName As String
Set objOut = CreateObject("Outlook.Application")
ActiveInspector.Close olDiscard
Set objOut = CreateObject("Outlook.Application")
Set objMail = objOut.CreateItem(olMailItem)-->hier springt das Debuggen hin
strText = Tabelle2.Shapes("Textfeld 1").TextFrame2.TextRange.Text
With objMail
.Subject = Tabelle2.Range("B2").Value
.Body = strText
.to = Tabelle1.Range("B2").Value
.Display
End With
Set objMail = Nothing
Set objOut = Nothing
Gruß Timm
|