• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Mail VBA dmv gezamelijke mailbox

Je krijgt ook geen foutmelding, maar bij mij wijzigt het niet van account zonder Set.
 
Hm, merkwaardig, bij mij wel. Met SET krijg ik juist de foutmelding
Object variabele of blokvariabele With is niet ingesteld
 
Ik vermoedde het al: keep it simple (vermijd overbodige variabelen)

Code: 
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
 
Laatst bewerkt:
Daar krijg ik een foutmelding op.
1757077128722.png

Zo niet en werkt vlekkeloos.
Code: 
Set .SendUsingAccount = .Session.Accounts.Item("anderaccount@gmail.com")
En zonder Set wijzigt het niet van account.
 
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.
 
Zowel met als zonder de punt en met of zonder .Set het wil het maar niet doen😂
 
Komt de afzender wel voor in?
Code: 
 For Each it In .Parent.session.accounts
   MsgBox it
 Next
 
Dat stukje code laat ieder account zien die in Outlook aanwezig is.
 
Welke emailprovider gebruik je? Ik zou bijna gokken dat het Microsoft 365 is.

Indien mijn gok juist is. Dan moet je het volgende doen:
1)Uitschakelen van Automapping. -> https://learn.microsoft.com/en-us/m...ccounts/remove-automapping-for-shared-mailbox
2)Handmatig toevoegen van de gedeelde mailbox aan Outlook

Er ontstaan problemen doordat het account niet echt bestaat als je automapping gebruikt. Zo kun je ook niet standaard verzenden vanuit de gedeelde mailbox. Oplossing is dan om dit uit te zetten. Nadeel daarvan is dus dat je die mailbox dus overal handmatig moet gaan toevoegen ipv dat dit automatisch gaat.
 
Dat lijkt me een zeer aannemelijke reden waarom het opgegeven account niet wordt gevonden.
 
Het betreft hier inderdaad outlook uit het office 365 pakket dat we hebben van het werk.
Of dat ook de provider is weet ik niet maar dat zou dan zomaar kunnen omdat we alles van Microsoft hebben.

Mogelijkheden om in die instellingen en wat te doen met automapping zal door onze IT afdeling niet toegestaan zijn. We werken met 65 man in de shared mailbox dus bij een ieder aanpassingen doen is ook niet gewenst.

Heel jammer dat dit niet lukt. We gebruikte voorheen de CDO methode die oa bij Ron de Bruin op de website staan maar dat werkte niet meer vandaar dus de uitstap om het op deze manier te proberen.

De bedoeling is nog steeds dat er een Range van een werkblad in de body van de mail komt en die word verstuurd (vanuit gezamelijk mailadres/box).
 
Waarom dit soort vraagstukken niet samen met de IT afdeling oppakken? Er is blijkbaar een behoefte dit te kunnen doen en daar zou IT bij moeten ondersteunen.
 
We zijn groot bedrijf en IT heeft voor deze kleine dingen en kleine afdeling geen tijd en ruimte.
Anderzijds is dit een wens van gegebruikers die vaak anders is dan wat een directie wil.

Dan gaan mensen op zoek naar andere oplossingen. Dus bij IT aanlopen is kansloos,
 
Wat het mailen van een bereik betreft, wellicht dat dit iets voor je is:
 

Bijlagen

Je moet ingelogd zijn om te kunnen reageren. Log in | Registreer
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan