Wysyłanie maila przez Office Outlook 2016

Thread View: pl.comp.bazy-danych.msaccess

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Phantom Mon, 26 Mar 2018 07:19

#137581

Author: Phantom
Date: Mon, 26 Mar 2018 07:19

18 lines
1797 bytes

Witam

Mam taki kod do wysyłania maila:
rv = Shell(e & " /mailurl:mailto:" & a & "?subject=" & b & "&body=" & c, vbNormalFocus)
gdzie:
e = "C:\Program Files (x86)\Windows Live\Mail\wlmail.exe"
a = przykladowy1@poczta.fm
b = "Informacja od administratora" - nagłówek maila
c = "informuję, że ble ble ble...." - treść maila

Ten kod działa na outlook expres i na windows livemail.
Niestety nie działa na Outlooku z MsOffice 2016.

Proszę o pomoc!
Z góry dziękuję

Pozdrawiam
Tomek

Wysyłanie maila przez Office Outlook 2016

#137582

Author: minfo
Date: Fri, 20 Apr 2018 17:20

6 lines
1623 bytes

Hej, lepiej napisać inną składnią jeżeli chcesz użyć Outlook 2016.

http://mojezmaganiainformatyczne.blox.pl/2015/10/Wysylanie-maila-kodem-VBA.html

Pozdrawiam
MF

Re: Wysyłanie maila przez Office Outlook 2016

#137583

Author: minfo
Date: Fri, 20 Apr 2018 18:08

56 lines
3237 bytes

Kiedyś pisałem coś jak poniżej ale to było w vb.net:
***

Option Explicit

'============================================================
' Wymaga referencji do Microsoft CDO for Windows 2000 Library

' Przy pierwszym uruchomieniu jest blokowane przez Gmail
' Gmail wysyła maila o próbie użycia konta
' W tym mailu daje link umożliwiający działanie tego kodu
' https://www.google.com/settings/security/lesssecureapps
' z ostrzeżeniem, że konto nie będzie dłużej chronione
' zgodnie z nowoczesnymi standardami. - wybór należy do nas :)
'=============================================================
Sub WyslijGmail()
    Dim MojMail As New CDO.Message
    Const ADRES As String = _
        "http://schemas.microsoft.com/cdo/configuration/"
    
    On Error GoTo Obsluga
    
    With MojMail.Configuration.Fields
        .Item(ADRES & "smtpusessl") = True
        .Item(ADRES & "smtpauthenticate") = 1
        .Item(ADRES & "smtpserver") = "smtp.gmail.com"
        .Item(ADRES & "smtpserverport") = 25
        .Item(ADRES & "sendusing") = 2
        .Item(ADRES & "sendusername") = "twoje_konto@gmail.com"
        .Item(ADRES & "sendpassword") = "twoje_haslo"
        .Update
    End With
    With MojMail
        .Subject = "Temacik"
        .To = "konto_odbiorcy@gmail.com"
        .From = "twoje_konto@gmail.com"
        .TextBody = "Pozdrowienia z VBA przez Gmail :)"
        .AddAttachment "C:\EX04\test.txt"
        .Send
    End With
    
    MsgBox "Poszło :)"
    
Czyszczenie:
    On Error Resume Next
    Set MojMail = Nothing
    Exit Sub
Obsluga:
    MsgBox Err & " - " & Err.Description
    Resume Czyszczenie
End Sub



***
MF

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads