Office: (Office 2010) VBA Bericht per Email versenden

Hallo,

möchte gerne einen Bericht per Email direkt aus Access 2010 versenden. Allerdings von einer bestimmten Emailadresse. Habe 3 Emailadressen in Outlook eingerichtet und möchte das der Bericht von einer bestimmten verschickt wird. Mit den Makros kann man leider nur einstellen wohin der Bericht geht, aber nicht welche Emailadresse er nehmen soll. In der Suche hier + Google habe ich leider keine Infos gefunden. Vielleicht weiss hier ja einer wie ich das anstellen könnte:

:)

 

Hallo!

IMHO kannst Du das nicht über ein Makro lösen. Statt dessen musst Du mit VBA dafür sorgen, dass Outlook ferngesteuert wird und die gewünschten Aktionen für Dich ausführt.
Wenn Du im Forum nach "Access + Outlook" suchst, wirst Du sicher eine Tonne Anregungen finden.

CU

 

Habe leider bisher nur folgendes gefunden:


Dim aplOutlook As Outlook.Application
Dim objMail As Variant
Dim mailtextstring As String
Dim ablagedatei As String, ablagepfad As String

Set aplOutlook = CreateObject("Outlook.Application")

ablagedatei = ablagepfad & rs1![MitgliederID] & "_" & fm1![Rechnungsdatum] & "_Rechnung.pdf"
DoCmd.OutputTo acOutputReport, "B:Rechnungen_Giroeinzug_Mailversand_Outlookeinzel", acFormatPDF, ablagedatei, 0, , , acExportQualityScreen

Set objMail = aplOutlook.CreateItem(olMailItem)
With objMail
.To = rs1![Rechnung_Mailadresse]
.Subject = "Samenabrechnung Genostar Gleisdorf"
.Body = mailtextstring
.Attachments.Add ablagedatei
.Send
End With


Leider wieder ohne Konfiguration der Absenderadresse :-(...hier im Forum habe ich auch gesucht, aber nix gefunden :-(........vielleicht einer doch einen Tipp für moi?

 

Hallo,

du brauchst dir nur einmal die Eigenschaften des MailItem-Objekts anzuschauen,
da gibt es z.B. die "SenderEmailAddress" - könnte mir vorstellen, dass dies dem
Gesuchten schon recht nahe kommt. *wink.gif*

 

Hallo,
aso ich hab das so gelößt

Dim stDocName As String
stDocName = "Berichtsname"
DoCmd.OpenReport stDocName, acPreview, WhereCondition:=Me.Filter
DoCmd.SendObject acReport, stDocName, "HTML", "Name@Gmx.de", , , "Bestellung", ""
DoCmd.Close

schau Dir die Parameter von SendObjekt an da findest Du alles.
Probleme giebt es bei mir mit dem HTML Modus, aber den Bericht als Anhang liefert er.
Gruß HSTR

 

\@HSTR: Was hast Du damit denn gelöst?
@anne: SenderEmailAddress ist eine schreibgeschütze Eigenschaft

@borisimo:
Probier mal folgendes - keine weiteren Verweise nötig...
Code:

Mit "SentOnBehalfOfName" wird eher eine Art Dummy-Email "Von" erzeugt. Im Outlook wird angezeigt "...im Auftrag von...gesendet".
Man kann aber sogar direkt dahin antworten.
Ich hatte aber mal eine Lösung gehabt, direkt ein vorhandenes Konto anzusprechen...muss mal suchen

 

PS: Ich habe "nur" Outlook 2003,
seit 2007 gibt es wohl die "SendUsingAccount"-Eigenschaft (google mal)!

 

\@freaser
Habe deinen Tipp SentOnBehalfOfName befolgt. Hat auch auf Anhieb funktioniert. Jedoch sieht das Ganze ein bisschen unsauber aus.....weil die Standardemailadresse halt trotzdem mit drinsteht.

Habe das nun folgermaßen drin:

Dim olApp As Object
Dim olDummy As String

Set olApp = CreateObject("Outlook.Application")

With olApp.CreateItem(0)
Rem Empfänger
.To = "blbla@bla.de"


Rem Email anzeigen zum Einfügen der Signatur
.GetInspector.Display

Rem Dummyzeile für Signatur. Zeile erforderlich
olDummy = .HTMLBody

Rem Betreff
.Subject = "aktueller Bericht"

Rem Textkörper (Body) im HTML-Format. (1 = Nur-Text, 2 = HTML, 3 = Rich-Text)
.BodyFormat = 2
Rem "
" = Zeilenumbruch-Anweisung (nur bei HTML)
.HTMLBody = "HTMLBody

" & .HTMLBody

Rem Name des Sendekontos in Anführungszeichen
Set .SendUsingAccount = .Session.Accounts.Item("Kontoname")


Rem Mail sofort senden
.Send
End With

Funktioniert einwandfrei unter Outlook 2010. Jedoch wie kann ich jetzt einen Vericht im PDF-Format mit verschicken.

DoCmd.SendObject acSendReport, "B_Bericht", acFormatPDF

funktioniert nicht...bzw dann macht er eine 2. Email auf.

 

Du wirst den Bericht vor der Erzeugung der Mail als PDF-Datei ablegen, und diese PDF-Datei dann deiner erzeugten Mail anhängen müssen.

 

Code:

 

\@borisimo (#8):

Code:

Anlage_Datei vorher generieren (String).
Am besten (u.a.) in der Funktion bereits übergeben...

Lass das Docmd.SendObject weg - die o.g. Funktion sendet bereits die Email...

 

erstmal Danke an alle. Habe nun fast alles so hinbekommen wie ich das haben will. Jetzt fehlt nur noch die Signatur.

Momentan nimmt Outlook wieder die Standardsignatur....wie kann ich eine bestimmte Signatur Outlook mitteilen? Habe im Internet nur umständlichen VBA gefunden :-(


Achso wer auch Probleme mit dieser blöden Outlook Sicherheitsabfrage hat (Zugriff von Access auf Outlook)...das Progg Advanced Security for Outlook: Outlook add-in for avoiding security alerts ist einfach klasse...kein klicken mehr und kein warten. Kostenlos ist es auch ;-)

 

Hallo,

ich habe diesen Thread gefunden und für meinen Bedarf getestet.
Es funktioniert recht gut.

Ich starte das Versenden der Mail über eine Schaltfläche in einem Formular mit folgendem Code:

Code:

ein Problem ist nun, wie kann ich als ".Body" den Inhalt von drei oder vier Feldern aus dem Formular übernehmen?
Ein Test, bei dem ich einfach die Feldnamen getrennt durch ein Komma eingegeben habe hat nicht funktioniert.
Beispiel:
.Body = "Urlaub genemigt, von Feld1, bis Feld2, Anz Tage Feld3"

Anstelle das Inhaltes werden die Feldnamen in der Mail angezeigt.

Viele Dank an alle die sich mit diesem Problem befassen.

Gruß EW

 

Na ja, das ist doch ein String!
Den musst Du zusammenbauen...
z.B.
.Body = "Urlaub genemigt " & Me!Feld1
etc.

 

Hallo fraeser,

vielen Dank für die schnelle und passende Antwort.

Gruß EW