Wysyłanie z konkretnego konta.

Pytania, uwagi, problemy związane z Microsoft Office Outlook, wersje 2007, 2010, 2013 i 2016.

Moderator: Moderatorzy

Wysyłanie z konkretnego konta.

Postprzez bigosiak » Pt 09.11.2018 00:01

Witam.
Outlook 2010
Mam makro które wysyła mi maile hurtowo.
Wszystko było ok do momentu, gdy każdemu pracownikowi dodali login I maila indywidualnego.
Tak więc każdy ma 2 adresy w Outlooku - jeden ogólny I drugi imienny.
Makro od tego momentu wysyła wszystkie maile z imiennego, zamiast z ogólnego - nawet gdy domyślną skrzynka
jest ogólny mail.
Co mam zmienić w ustawieniach aby wszystko szło z maila domyślnego?
Pozdrawiam
Grzegorz
Załączniki
23png.png
bigosiak
 
Posty: 9
Dołączył(a): N 25.02.2018 02:05

Re: Wysyłanie z konkretnego konta.

Postprzez OShon » Pt 09.11.2018 00:13

Spróbuj również przełączyć plik danych (data files) konta firmowego jako domyślny.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9642
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Wysyłanie z konkretnego konta.

Postprzez bigosiak » Pt 09.11.2018 00:24

Próbowałem - wywala mi komunikat o błędzie.
Próbowałem z poziomu makro aby wysyłało ze skrzynki nr 1 ale też nie działa...
Kod: Zaznacz cały
Sub Send_Files20()
 
     Dim OutApp As Object
     Dim OutMail As Object
     Dim sh As Worksheet
     Dim cell As Range
     Dim FileCell As Range
     Dim rng As Range

     With Application
         .EnableEvents = False
         .ScreenUpdating = False
     End With

     Set sh = Sheets("Sheet3")
     
     Set OutApp = CreateObject("Outlook.Application")
     
     For Each cell In sh.Columns("Z").Cells.SpecialCells(xlCellTypeConstants)

         'Enter the path/file names in the C:Z column in each row
         Set rng = sh.Cells(cell.Row, 1).Range("AA1:AB1")

         If cell.Value > 0 And _
            Application.WorksheetFunction.CountA(rng) > 0 Then
             Set OutMail = OutApp.CreateItem(0)

             With OutMail
                 .To = cell.Value
                 .Subject = cell.Offset(0, -1).Value
                 .Body = ""

                 For Each FileCell In rng.SpecialCells(xlCellTypeConstants)
                     If Trim(FileCell) <> "" Then
                         If Dir(FileCell.Value) <> "" Then
                             .Attachments.Add FileCell.Value
                         End If
                     End If
                 Next FileCell
                 ' If OutMail.Attachments.Count = 0 Then 'MsgBox OutMail.Subject & " no attachment"

               ' .Display 'Or use .Display
               'If OutMail.Attachments.Count > 0 Then .Send
               If OutMail.Attachments.Count = 0 Then
      Dim czy: czy = MsgBox("There's no attachment, send anyway?" & vbCr & OutMail.Subject, _
      vbQuestion + vbYesNo + vbDefaultButton2, "Bulk Sender & Name Creator")
      If czy = vbYes Then
    [b]  .SendUsingAccount = OutApp.Session.Accounts.Item(1)[/b]
      .Send
Else
    [b]   .SendUsingAccount = OutApp.Session.Accounts.Item(1)[/b]
      .Send
End If
               

                ' .Send  'Or use .Display
             End With

             Set OutMail = Nothing
         End If
     Next cell

     Set OutApp = Nothing
     With Application
         .EnableEvents = True
         .ScreenUpdating = True
     End With
 End Sub
bigosiak
 
Posty: 9
Dołączył(a): N 25.02.2018 02:05

Re: Wysyłanie z konkretnego konta.

Postprzez OShon » Pt 09.11.2018 01:22

Nie, niestety przełączanie na inne konto w kodzie nie działa.
MS coś zpie..rniczył i nie działa. Strasznie się namęczyłem aby to osiągnąć budując ten dodatek raczej sposobem niż przy użyciu metody jaką sami stworzyli.

Ok z więc inny sposób.
Zrób po prostu nowy profil OUtlooka, skonfiguruj tam tylko swoje firmowe konto i tam uruchamiam swój kod.
Wykonasz to z panelu sterowania na wyłączonym Outlooku:

OL_Profile2.png
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9642
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Wysyłanie z konkretnego konta.

Postprzez bigosiak » Pt 09.11.2018 06:39

Oskar - chętnie bym skorzystał z Twojego dodatku, ale niestety nie mogę
instalować żadnych ulepszeń na firmowym komputerze :(
Postaram się założyć nowy profil tak jak radzisz.
Nocka dobiegła końca...
Pozdrawiam
Grzegorz
bigosiak
 
Posty: 9
Dołączył(a): N 25.02.2018 02:05

Re: Wysyłanie z konkretnego konta.

Postprzez OShon » Pt 09.11.2018 11:05

Tak 90% osób pisze że nie może bo to czy tamto, zamiast wnioskować u władz przedsiębiorstwa wdrożenie jakiegoś oprogramowania legalnie, za zaplanowany na takie cele budżet.
Przecież pracownicy nie pracują tylko na programach systemowych kupionych z komputerem, ale i wdrażają co róż nowe programy ułatwiające pracę pracownikom.
No nie namawiam, ale mam w ofercie 150 różnych rozwiązań (w większości na Excela) które mogą być zaoferowane bez instalatorów (czyli bez instalacji).
Ten akurat nie bo jest w .NET pod Outlooka. Ale nie drążę tematu, bo to akurat kwestia prywatnej dywagacji.
Kwestia "szanuje swoją pracę" jest zgubna dla obu - pracownika i pracodawcy.

Spróbuj nowy profil i na nim uruchom makro, bez odniesienia się do kont.
Powodzenia.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9642
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Wysyłanie z konkretnego konta.

Postprzez iendrus » So 10.11.2018 19:35

bigosiak, spróbuj dodać linijkę do kodu:

Kod: Zaznacz cały
           
With OutMail
   .To = cell.Value
   .SendUsingAccount = OutApp.Session.Accounts("adres@to.pl") ' wpisz adres mailowy, z którego ma być wysłana poczta
   .Subject = cell.Offset(0, -1).Value



iendrus
iendrus
 
Posty: 5
Dołączył(a): Śr 31.10.2018 21:35

Re: Wysyłanie z konkretnego konta.

Postprzez bigosiak » N 11.11.2018 01:22

Niestety to nie działa.
Pozdrawiam
bigosiak
 
Posty: 9
Dołączył(a): N 25.02.2018 02:05

Re: Wysyłanie z konkretnego konta.

Postprzez OShon » N 11.11.2018 09:56

Ja napisałem pow - nie działa i nie będzie działać.
MS ma tutaj babola i od wielu lat nie można polegać na tej opcji zmiany parametrów obiektu mailitem.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9642
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Wysyłanie z konkretnego konta.

Postprzez iendrus » Pn 12.11.2018 17:35

Wiem, że kiedyś próbowałem i nie było problemu ze zmianą adresu nadawcy - nie pamiętam jednak, czego użyłem.
Wprawdzie obecnie mam tylko jedno konto w Outlooku, ale mam "podpiętą" drugą (dodatkową) skrzynkę.
Używając właściwości
Kod: Zaznacz cały
SentOnBehalfOfName
mogę określić, z której skrzynki mam wysłać maila.
Może to się sprawdzi...
iendrus
 
Posty: 5
Dołączył(a): Śr 31.10.2018 21:35

Re: Wysyłanie z konkretnego konta.

Postprzez OShon » Pn 12.11.2018 22:13

Wyślij w imieniu też zostało zepsute. :/
i nie bardzo ma to coś wspólnego z innym kontem.
Obydwie funkcjonalności działają tylko ręcznie - nie da się je programować na dzień dzisiejszy.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9642
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl

Re: Wysyłanie z konkretnego konta.

Postprzez iendrus » Wt 13.11.2018 19:08

OShon, może i zepsute, ale u mnie działa :]
iendrus
 
Posty: 5
Dołączył(a): Śr 31.10.2018 21:35

Re: Wysyłanie z konkretnego konta.

Postprzez OShon » Wt 13.11.2018 20:00

Niewykluczone, niewykluczone.
Kręciłem się koło tego aby w zakresie pewnych potrzeb zautomatyzować tą własność i doszedłem do wniosku że producent spitolił to i owo.
Kiedyś mi to na prawdę fajnie chodziło, ale miałem przypadków kilka kiedy nie http://vbatools.pl/auto-adres-w-imieniu/
To też dałem sobie z tym spokój bo nie będę przecież warunkował rozwiązania od konkretnej wersji bez UPG czy w konkretnej kompilacji, gdzie na innych maszynach nie działa i już.
Jest trochę tych kwiatków i jeśli ktoś jest wytrwały to znajdzie a ja potwierdzę lub za neguje.

Dziś MS skupia się na zamianie ikonek i wprowadzeniu nowości, jakie może podać na tacy marketingowcom, którzy zrobią z tego użytek prasowy.
Nie twierdzę że wszystkie obecne ich działania nie mają sensu, ale kto tam będzie się pochylał nad jakimś niszowym klockiem.
Obrazek
Oskar Shon - MVP Office System/Development 11/19, 3x MCC
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 9642
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Veracomp SA, VBATools.pl


Powrót do Microsoft Outlook 2007 / 2010 / 2013 / 2016

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 11 gości