Supportnet / Forum / Tabellenkalkulation

Ich möchte in Excel mein Arbeitsblatt als Anhang in einer E-mail abschicken, per Makro und mit der E-Mail Software von T-Online. Kann mir jemand schreiben, wie das geht? Vielen Dank __________Michael

Hallo
Sieh dir diesen Makro an, vielleicht ist er hilfreich:

Sub EMailVerschickenMitAnhängen()
Dim outObj As Object
Dim Mail As Object
Dim i As Integer
      
  Set outObj = CreateObject("Outlook.Application")
  Set Mail = outObj.CreateItem(0)
  With Mail
    .Subject = "Rechnungen"
    .Body = "Sehr geehrte Damen und Herren " & Chr(13) & _
    "Bitte prüfen Sie die angehängten Rechnungen" & Chr(13) & _
      "Viele Grüße " & Chr(13) & _
      Application.UserName
    .To = "Rewe@Mac.de"
    .CC = "Fibu@Mac.de"
   End With
      With Application.FileSearch
        .NewSearch
        .LookIn = "c:\Rechnungen\"
        .SearchSubFolders = True
        .FileType = msoFileTypeAllFiles
        .Execute
        For i = 1 To .FoundFiles.Count
            Mail.Attachments.Add .FoundFiles(i)
        Next i
      End With
   Mail.Display
   Set Mail = Nothing
   Set outObj = Nothing
  End Sub

Gruß piano

_{Es wäre nett, wenn Du ein Feedback abgeben könntest,}
<sup>ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -</sup>

Hallo,
vor diesem Prob stand ich auch mal und hab viel Hilfe erhalten.
Probiers damit:

Sub TabellenblattVersenden()
Dim s As String
s = InputBox _
("Emailempfänger eintragen")
If s = "" Then Exit Sub
ActiveSheet.Copy
ActiveWorkbook.SaveAs "Anhang.xls"
Application.Dialogs(xlDialogSendMail).Show s
End Sub

rooky

Hallo piano:
Vielen dank für die Hilfe.
Ich habe es ausprobiert und es geht gut. Aber nur mit Outlook.
Eeigendlich wollte ich die Mails mit der T-Online EMail Software verschicken. Nach diesem Code suche ich immer noch.

Viele Grüße
_____________
Michael S.

Moin Michael,

das wird auch mit den beiden VBA Codes von @piano und rooky nicht realisierbar sein. Du wirst das T-Onlineprogramm nicht so ohne weiteres aus Excel heraus ansprechen können. Denn das E-Mailprogramm wird kein Visual Basic for Application (kurz VBA) kennen und somit ist kein problemloser Zugriff auf dieses Programm, wie es z.B. bei Outlook funktioniert, möglich. Da muss man mit ein paar Klimmzügen ans Ziel kommen, wobei ich da nur ein paar Tipps geben kann, da ich die T-Onlinesoftware nicht kenne und somit auch keine komplette Lösung präsentieren kann.

Du müsstest mit dem Befehl

Dim Mailprogramm As Long
Mailprogramm = Shell("Pfad\Programmname.exe", 1)

das Programm öffnen. Anstelle des Wortes „Pfad“ müsste der Pfad stehen, in dem sich die Software befindet und anstelle des Wortes „Programmname“ müsste der Name der Software stehen. Ab dem Zeitpunkt an dem die Software geöffnet ist, müsstest Du dann versuchen mit der SendKeys-Methode weiterzukommen. Bei den meisten Programmen kommt man z.B. mit der Tastenkombination Alt & D an den Menüeintrag Datei heran und kann dann mit Tab oder einer anderen taste weiterarbeiten. Diese Tastenkombinationen kann man mit der SendKeys-Methode nachempfinden. Die Tastenkombination Alt & D würde als Befehl z.B. folgendermaßen aussehen:

SendKeys "%D"

und ein Tab-Tastenschlag würde folgendermaßen aussehen:

SendKeys "{TAB}"

Schau Dir mal in der Excel-VBA-Hilfe die entsprechende Hilfe zu der Methode an. Auf jeden Fall kann man versuchen ob man über den Schell-Befehl und den SendKeys-Befehlen an die T-Online herankommt.

Sorry, dass ich Dir nicht mit einer kompletten Lösung aufwarten kann, aber wie schon geschrieben, kenne ich die T-Onlinesoftware nicht. Ich würde Dir aber empfehlen, doch über Outlook Deine Mails aus Excel heraus zu versenden. Da hat man eine Vielzahl an Möglichkeiten dieses zu gestalten. Eine kleine Auswahl kannst Du Dir auf meiner HP in der Rubrik Beispieldateien und dort dann in dem Beispiel 27 (Bereich als E-Mail versenden ) ansehen. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir eventuell einen kleinen Einblick dazu gibt.

Bei Fragen dazu melde Dich bitte wieder.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}