… Emailbutton setzen und habe die codequelle genutzt die hier beschrieben ist und auch den fehler korrigiert so wie es hier beschrieben wird. jedoch bekomme ich jetzt die fehlerquelle 429 Objekterstellung durch ActiveX Komponente nicht möglich. Mein Code sieht momentan so aus:
Private Sub CommandButton1_Click
Application.DisplayAlerts = False
Dim aws As String
Dim olapp As Object
ActiveDocument.Save
aws = ActiveDocument.FullName
Set olapp = CreateObjectOutlook.Application
With olapp.CreateItem0
.To = empfä[email protected];[email protected]
'.cc = [email protected];[email protected] 'optional Kopie an
'.bcc = [email protected],[email protected],[email protected] 'optional Blindkopie an
.Subject = Text ’ Betreff optional
.HtmlBody = Text ’ Body optional
'.ReadReceiptRequested = True 'optional Lesebestätigung anfordern
.Attachments.Add aws
.Display
'SendKeys %s, True ’ optional Mail sofort senden
End With
Set olapp = Nothing
Application.DisplayAlerts = True
End Sub
Vllt kann mir jemand helfen und weiß wo der Fehler liegt