Fehlercode 450:
Beim Verwender des Code: objEmail.Session.Accounts(sEmail_From)
Fehler: 450
Description : "Falsche Anzahl an Argumenten oder ungültige Zuweisung zu einer Eigenschaft" : String : modEmail.Send_Email_to_Address
Lösung: 1) entweder mit Acounts.Item(Email_From) oder zwei Parameter eintragen und zwar den Email und Anzeigename
'< outlook > '*Ohne Verweis '*Outlook versionsunabhaengig, Late Binding Dim app_Outlook As Object Set app_Outlook = CreateObject("Outlook.Application") Dim objEmail As Object Set objEmail = app_Outlook.CreateItem(0)
' '*Mit Verweis ' '* bei Verwendung von Outlook mit Verweis Early Binding ' Dim app_Outlook As Outlook.Application ' Set app_Outlook = New Outlook.Application ' Dim objEmail As MailItem ' Set objEmail = app_Outlook.CreateItem(olMailItem)
'</ outlook >
'< Sender > Dim sEmail_From As String sEmail_From = ActiveWorkbook.Names("varEmail_From").RefersToRange.Value2
Dim sName_From As String sName_From = ActiveWorkbook.Names("varName_From").RefersToRange.Value2
'objEmail.SentOnBehalfOfName = sEmail_From If Not sEmail_From Like "" Then objEmail.SendUsingAccount = objEmail.Session.Accounts(sEmail_From) End If '</ Sender > |
Der Fehler tritt in der Anwendung auf