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