Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Fehlercode 450: Beim Verwender des Code: Email.Session.Accounts(sEmail_From)

16.11.2020 (👁3559)

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