Mail VBA dmv gezamelijke mailbox

[HSV]

Je krijgt ook geen foutmelding, maar bij mij wijzigt het niet van account zonder Set.

 

[AHulpje]

Hm, merkwaardig, bij mij wel. Met SET krijg ik juist de foutmelding
Object variabele of blokvariabele With is niet ingesteld

 

[snb]

Ik vermoedde het al: keep it simple (vermijd overbodige variabelen)

Sub M_snb()
  With CreateObject("outlook.application").CreateItem(0)
    For Each it In .Parent.session.accounts
      MsgBox it
    Next
    .To = "iemand@hotmail.com"
    .Subject = "onderwerp"
    .Body = "tekst"
    .SendUsingAccount = .Parent.Session.Accounts("voorbeeld@snb-vba.eu")
    .Send
  End With
End Sub

 

[HSV]

Daar krijg ik een foutmelding op.


Zo niet en werkt vlekkeloos.

Set .SendUsingAccount = .Session.Accounts.Item("anderaccount@gmail.com")

En zonder Set wijzigt het niet van account.

 

[snb]

Outlook 2010 bevat ook nog .Sendonbehalfofname

 

[edmoor]

Daarvoor moet het originele account wel eerst toestemming krijgen van het account in .Sendonbehalfofname
Dat is een eenmalige rechten instelling binnen Outlook.
Wellicht dat het niet binnen iedere Outlook editie beschikbaar is.

 

[vrouw]

Zowel met als zonder de punt en met of zonder .Set het wil het maar niet doen

 

[HSV]

Komt de afzender wel voor in?

 For Each it In .Parent.session.accounts
   MsgBox it
 Next