Email-Anlagedatei generieren per Makro
Albrecht Koch
könnte ein Makro in Excel (2002) folgende Funktion ausführen:
speichern des Excel-sheets als Anlagedatei einer Outlook Mail, öffnen
der Email die dann an einen bestimmten Empfänger adressiert und mit
einem bestimmten Betreff und ggf. auch mit einem Standard-Text
(automatisch) generiert wird?
Gibt's irgendwo eine Vorlage, oder kann mir jemand soetwas
genialerweise programmieren?
Beste Grüße,
Albrecht
Dimo Tabken
Moinmoin Albrecht,
> könnte ein Makro in Excel (2002) folgende Funktion ausführen:
>
> speichern des Excel-sheets als Anlagedatei einer Outlook Mail, öffnen
> der Email die dann an einen bestimmten Empfänger adressiert und mit
> einem bestimmten Betreff und ggf. auch mit einem Standard-Text
> (automatisch) generiert wird?
hast Du an sowas gedacht?
Kopier' den Makro in eine Arbeitsmappe und probier's aus.
Vielleicht ist's ja ein Schritt in die richtige Richtung.
Sub MailAttachment()
'Makro läuft nur, wenn im VBE der
'Verweis auf die Outlook-Objektbibliothek
'gesetzt ist.
Dim oOut As Outlook.Application
Set oOut = New Outlook.Application
Dim oOutMail As Outlook.MailItem
Set oOutMail = oOut.CreateItem(olMailItem)
Dim strTempFileName As String
Dim strEmpfEmail As String
'in der folgenden Zeile die
'Mailadresse des Empfängers eingeben
'Könnte auch noch über 'ne Benutzereingabe
'abgefragt werden.
strEmpfEmail = "in...@several-voices.de"
'der Dateiname wird nur zum Zwischenspeichern
'gebraucht. Sonst haut das mit dem Versenden nicht
'so problemlos hin.
strTempFileName = "c:\MailAttachment.xls"
Application.ActiveWorkbook.SaveAs strTempFileName
With oOutMail
.To = strEmpfEmail
.Attachments.Add strTempFileName
.Subject = "Blablabla Betreffzeile"
.Body = "Sehr geehrte Damen undsoweiter" & vbCrLf & _
"So könnte eine solche Mail aussehen"
.Send '.display, wenn's nicht sofort gesendet werden soll
End With
'Alles zurück auf Null
Set objOutlook = Nothing
Set objmail = Nothing
End Sub
--
Herzliche Grüße
Dimo Tabken
Mails an o.g. Adresse werden ungelesen gelöscht.
PM bitte an dimo[punkt]tabken[ätt]indisol[punkt]de
Albrecht Koch
>
> 'Makro läuft nur, wenn im VBE der
> 'Verweis auf die Outlook-Objektbibliothek
> 'gesetzt ist.
>
> Dim oOut As Outlook.Application
Hallo Dimo,
vielen Dank für die schnelle Hilfe !!!
Allerdings hakt das Makro noch ein wenig bei mir:
"Fehler beim Kompilieren - Benutzerdefinierter Typ nicht definiert"
dabei ist die erste Programmzeile, die mit DIM beginnt markiert.
Was bedeutet der Remark mit "VBE" in den ersten Zeilen?
Hat das etwas mit der Fehlermeldung zu tun?
Gruß
Albrecht
Dimo Tabken
Albrecht Koch schrieb am 10.08.2004 um 22:12:22 Uhr:
> Was bedeutet der Remark mit "VBE" in den ersten Zeilen?
> Hat das etwas mit der Fehlermeldung zu tun?
Jepp, hat er....
im Visual Basic Editor findest Du unter Extras-->Verweise einen Eintrag,
der bei Dir vermutlich deaktiviert ist "Microsoft Outlook 10.0 Object
Library".
Der muß aktiviert werden.
Dann sollte alles laufen, denk ich.
Albrecht Koch
Dein Makro funktioniert nun einwandfrei ! Genauso habe ich mir das
vorgestellt.
Super, - Vielen Dank!!!
Gruß
Albrecht
Dimo Tabken
Albrecht Koch schrieb am 11.08.2004 um 17:25:09 Uhr:
> Dein Makro funktioniert nun einwandfrei ! Genauso habe ich mir das
> vorgestellt.
Das freut mich sehr ;-)
>
> Super, - Vielen Dank!!!
Gerne geschehen.
Vielen Dank für Deine Rückmeldung!