Hallo zusammen,
hallo Mase,
Der Fehler liegt nicht am Makro selbst sondern irgendwo an der FollowHyperlink-Methode.
Folgender Programmcode steht im Tabellenblatt, indem die Hyperlinks das Makro auslösen sollen:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Call E_mail
End Sub
Finaler Code des Makros(funktioniert losgelöst von Hyperlink tadellos):
Option Explicit
Sub E_mail()
Dim myinsp As Outlook.Inspector
Dim myItem As Outlook.MailItem
Dim objOutlook As Object
Dim objMail As Object
Set myinsp = Outlook.Application.ActiveInspector
Set myItem = myinsp.CurrentItem
myItem.Close olDiscard
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "max.mustermann@musterhause.de"
.Subject = "Betreff"
.Body = "Ihre Nachricht."
.Display
End With
End Sub
Den Hinweis die Objektvariable des Hyperlinks auf nothing zu prüfen habe ich nicht verstanden. Kann mir, dass jemand erklären?
Hab es bereits gegoogelt", jedoch ohne Erfolg.
Gruß
Timm
|