Office: E-Mail Funktion mit CC?

Jasmin11 · 9. Februar 2008

Huhu ihr,

ich habe zwar eine Lösung gefunden wie meine Tabelle in Outlook als Anlage angehangen wird mit einem Empfänger etc. ABER ich kann mit dieser Funktion wohl keinen CC-Empfänger eingeben...

Deswegen habe ich zwei mal dieselbe Funktion geschrieben, sprich: Es ist natürlich blöd, da man zwei mal auf Senden klicken muss, und sich zwei Fenster öffnen.

Weiß jemand vielleicht von euch eine alternative Lösung? Bitte leicht verständlich erklären...
Bin nicht so ein erfahrener Programmierhase wie ihr xD.

Danke schon einmal im Vorraus!

Code:

strSQL = "Select sum(Std) As GesStd from abfTagesmitteilungNeu Where Datum = " & Format(Me.Datum, 0) & _
"and ProjBez 'Privat'"
RS.Open strSQL
If Not RS.EOF Then
XLS.Cells(i, 3) = RS("GesStd")
End If
RS.Close

XLS.Range("Startzeile").EntireRow.Delete

XLS.Application.Dialogs(xlDialog********).Show "aa@web.de", "Tagesbericht " & Me.frmDatum
XLS.Application.Dialogs(xlDialog********).Show "bb@web.de", "Tagesbericht " & Me.frmDatum

XLS.activeworkbook.Close SaveChanges:=False
XLS.Application.Quit

Set XLS = Nothing

Exit_cmdTagNeu_Click:
Exit Sub

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß

Jasmin

:)

jinx · 10. Februar 2008

Moin, Jasmin11,

Example Code for sending mail from Excel von Ron de Bruin ist für mich die umfassendste Sammlung an Möglichkeiten, Mails aus Excel zu versenden.

Jasmin11 · 10. Februar 2008

Huhu,

Ist eine Feine Seite habe mich für diese Methode entschieden

Code:

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "xx"
.CC = "x"
.BCC = ""
.Subject = "Tagesbericht" & Me.frmDatum
.Body = ""
XLS.Attachments.Add activeworkbook

'You can add other files also like this
'.Attachments.Add ("C:\test.txt")
.Send 'or use .Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein Problem aber diesmal der hängt mir meine Tabelle nicht mit an *frown.gif*
Ich habe es nun schon mit diesen Möglichkeiten versucht:

XLS.Attachments.Add activeworkbook
XLS.Workbook.Add.CurrentProject.Path & "\Stundenaufschreibung.xls"
XLS.Attachments.Add.CurrentProject.Path & "\Stundenaufschreibung.xls"
OutApp.Attachments.Add XLS.activeworkbook.Stundenaufschreibung1.XLS

Bitte helft mir kleinblöd noch einmal =)...

mumpel · 10. Februar 2008

Hallo!

Code:

Sub MailVersand()
Dim aws As String
Dim olapp As Object
ActiveWorkbook.ActiveSheet.Copy
ActiveWorkbook.Save
aws = ActiveWorkbook.FullName
Set olapp = CreateObject("Outlook.Application") 'Erstellt eine Outlooksession
With olapp.CreateItem(0)
.To = "empfänger1@netz.de" 'Empfänger
.CC = "empfänger2@netz.de,empfänger3@netz.de" 'optional Kopie an
.BCC = "empfänger2@netz.de,empfänger3@netz.de" 'optional Blindkopie an
.Subject = "Rechnung" 'optional Betreff
.htmlBody = "Rechnung" 'optional Text
.Attachments.Add aws 'fügt den Angang an
.Display 'zeigt die Email an
'SendKeys "%s", True 'optional. Schließt das Emailfenster.
End With
Set olapp = Nothing 'Beendet die Outlooksession
ActiveWorkbook.Close 'Schließt die Kopie
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Möchtest Du die ganze Arbeitsmappe anhängen, dann entferne die Zeile ActiveWorkbook.ActiveSheet.Copy und die Zeile ActiveWorkbook.Close

Excel 2003 Add-In
Excel 2007 Add-In
Mit diesen Add-Ins kannst Du Arbeitsmappen/Tabellen (Excelversion) sowie Worddokumente (Wordversion) über einen Dialog versenden. Du kannst damit auch einen markierten Tabellenbereich bzw. einen markierten Text in den Mailbody einfügen.

Gruß, Rene

IngGi · 10. Februar 2008

Hallo Jasmin,

soweit ich das sehe, sollte folgendes gehen:
Code:

.Attachments.Add XLS.ActiveWorkbook.FullName
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

Jasmin11 · 10. Februar 2008

Danke für die Super Verständliche Antwort!! Es klappt bin mich voll am freuen *smile* Dankeeee!!!

Gruß

Jasmin =)

Jasmin11 · 10. Februar 2008

Danke auch dir IngGi auch diese Methode klappt ! xD

Jasmin11 · 10. Februar 2008

Doch noch mal ich *frown.gif*

Code:

activeworkbook.Save
aws = activeworkbook.FullName
Set olapp = CreateObject("Outlook.Application") 'Erstellt eine Outlooksession
With olapp.CreateItem(0)
.To = "empfänger1@netz.de" 'Empfänger
.CC = "empfänger2@netz.de,empfänger3@netz.de" 'optional Kopie an
.BCC = "empfänger2@netz.de,empfänger3@netz.de" 'optional Blindkopie an
.Subject = "Rechnung" 'optional Betreff
.HTMLBody = "Rechnung" 'optional Text
.Attachments.Add aws 'fügt den Angang an
.Display 'zeigt die Email an
'SendKeys "%s", True 'optional. Schließt das Emailfenster.
End With
Set olapp = Nothing 'Beendet die Outlooksession
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich möchte nicht gefragt werden ob ich die automatisch generierte Vorlage speichern will... sie soll ohne speichern als e-mail angehangen werden...

doch nehme ich das save raus oder mach daraus ein saved = true so findet der die datei nicht mehr *frown.gif*

gibt es keine möglichkeit das zu umgehen?

mumpel · 10. Februar 2008

Welche Abfrage? Diese kommt bei mir nicht. Wie lautet die genaue Meldung? Hast Du schon die Add-Ins getestet.

Jasmin11 · 10. Februar 2008

Führt man Access dann aus... erstellt er in Excel eine ausgefüllte Vorlage...

Diese speichert er automatisch ab um dann damit weiterzuarbeiten:

activeworkbook.save

Beim zweiten Durchlaufen lassen kommt diese Meldung während die Tabelle in Excel offen ist ( wo er eigentlich schon automatisch zu Outlook springen sollte):

Eine Datei mit dem Namen "Stundenaufschreibung1.xls existiert schon an diesem Platz. Soll sie ersetzt werden? Ja Nein Abbrechen

Sprich er speichert die und da ich die Stunden.mdb später auf den Server packen möchte damit die für alle zugänglich ist und ich nicht weiß wo die anderen sie hinspeichern wollten etc. finde ich das nicht gut mit dem abspeichern.

Also meine Frage gibt es nicht die Möglichkeit die Excel Tabelle an die E-Mail anzuhängen ohne sie vorher mit activeworkbook.save speichern zu müssen?

Wie gesagt beim ersten durchlauf speichert er es automatisch und man kriegt von dem ganzen noch nichts mit aber spätestens nach dem zweiten kommt die MessageBox ...

Und was meinst Du bitte mit Add-Ins? Bin Praktikantin lol und weiß nicht so genau was Du meinst... Funktioniert ja alles genau so wie ich es haben will... ABER er solls nicht speichern :/

Wenn ich das activeworkbook.save entferne dann bleibt Excel geöffnet und nichts geht mehr weiter mit der Begründung das er nicht weiß wo er drauf zugreifen soll er kennt den pfad halt nicht... und wenn ich ihm sage Attachment.Adds CurrentProject.Path & "\Stundenaufschreibung.xls" dann hängt er nur die leere Vorlage an die E-mail und nicht die ausgefüllte...

Hoffe konnte mein Problem nun halbwegs genau erklären xD

mumpel · 10. Februar 2008

Deaktiviere einfach die Bildschirmmeldung (DisplayAlerts)
Code:

Sub MailVersand()
Dim aws As String
Dim olapp As Object
Application.DisplayAlerts = False 'Abfrage unterdrücken
ActiveWorkbook.Save
aws = ActiveWorkbook.FullName
Set olapp = CreateObject("Outlook.Application") 'Erstellt eine Outlooksession
With olapp.CreateItem(0)
.To = "empfänger1@netz.de" 'Empfänger
.CC = "empfänger2@netz.de,empfänger3@netz.de" 'optional Kopie an
.BCC = "empfänger2@netz.de,empfänger3@netz.de" 'optional Blindkopie an
.Subject = "Rechnung" 'optional Betreff
.htmlBody = "Rechnung" 'optional Text
.Attachments.Add aws 'fügt den Angang an
.Display 'zeigt die Email an
'SendKeys "%s", True 'optional. Schließt das Emailfenster.
End With
Set olapp = Nothing 'Beendet die Outlooksession
Application.DisplayAlerts = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

In meiner ersten Antwort habe ich Links zu meinen Add-Ins gepostet, mit dem Du dialoggesteuert Mails senden kannst.

Jasmin11 · 11. Februar 2008

Danke dir =) Diesmal hat alles geklappt, genau so wie ich es möchte *Smilie

Office: E-Mail Funktion mit CC?

E-Mail Funktion mit CC?

E-Mail Funktion mit CC?

E-Mail Funktion mit CC?

E-Mail Funktion mit CC?

E-Mail Funktion mit CC? - Similar Threads - Mail Funktion

Wann genau wird Mail zu verpassten Aktivitäten versandt

Mail verschieben, wenn sie "als erledigt markiert ist

Empfänger sieht primäre Adresse statt Alias, an den die Mail ging

Spam Mail

E-Mail Funktion

E-Mail Funktion mail auslesen VBA Anfänger

E-Mail funktion