Hallo,
ich habe hier mal was in VBA in Excel gemacht:
Code: Select all
Application.DisplayAlerts = False
Dim iFileType As Integer
Select Case Application.Version
Case "12.0": iFileType = 56
Case Else: iFileType = xlWorkbookNormal
End Select
thema = "Antrag: "
Application.DisplayAlerts = True
Application.ScreenUpdating = False
BodyText = 1
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Set itmevt.Mail = outmail
Mail.Subject = thema
'Mail.BodyFormat = olFormatRichText
Mail.HTMLBody = "Hallo," & "<br>" & "<br>" & "Antrag Nr:" _
& "<br>" & RangetoHTML(Tabelle1.Range(Cells(2, 1), Cells(2, 4))) _
& RangetoHTML(Tabelle1.Range(Cells(zeile99, 1), Cells(zeile99, 4))) _
& "<br>" _
& "<br>" _
& RangetoHTML(Tabelle1.Range(Cells(2, 9), Cells(2, 13))) _
& RangetoHTML(Tabelle1.Range(Cells(zeile99, 9), Cells(zeile99, 13))) _
& "<br>" & "Vorgang in Zeile: " & zeile99 _
& "<br>" & "<br>" _
& "<a href=" & ThisWorkbook.Path & "\Antrag.xlsm>Link zur Übersicht</a>" _
& "<br>" & "<br>" & "Mit freundlichen Grüßen" & "<br>"
Application.ScreenUpdating = True
Mail.To = "[email protected]"
'Mail.Attachments.Add Environ("TEMP") & "\" & "Antrag.xlsm"
Mail.Display
'If Mail.Sent = True Then
' Debug.Print "sent"
'ElseIf Mail.Sent = False Then
' Debug.Print "not sent"
'End If
1) Ein
neue Email wird geöffnet
2) Betreff wird aus Variable
thema ausgelesen
3) als EMail Body wird HTML gesetzt (nur so lassen sich die Daten aus Excel korrekt anzeigen)
4) aus Tabelle 1 werden versichiedene Bereiche kopiert, hier einfach anpassen...zeile99 ist bei mir eine interene Variable.
5) es wird ein Hyperlink auf eine Datei eingefügt.
6) Mail.to = Email-Empänger einfügen / mail.cc = "
[email protected];
[email protected]"... / mail.bc = ...
7) evtl ein Anhang, ist aber ausgeblendet
8) Mail.Display --> Email wird angezeigt --> Mail.sent würde sofort versenden ohne zu fragen
9) am Schluß gibt es noch eine Abfrage (auch ausgeblendet), ob die Mail wirklich versendet wurde, hier kann man z.B. eine Logdatei noch schreiben.
Evtl hilft es dir weiter.. ich würde es auch ohne AHK machen, ist evtl etwas einfacher und ohne Umwege.
Grüße
Hallo,
ich habe hier mal was in VBA in Excel gemacht:
[code] Application.DisplayAlerts = False
Dim iFileType As Integer
Select Case Application.Version
Case "12.0": iFileType = 56
Case Else: iFileType = xlWorkbookNormal
End Select
thema = "Antrag: "
Application.DisplayAlerts = True
Application.ScreenUpdating = False
BodyText = 1
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Set itmevt.Mail = outmail
Mail.Subject = thema
'Mail.BodyFormat = olFormatRichText
Mail.HTMLBody = "Hallo," & "<br>" & "<br>" & "Antrag Nr:" _
& "<br>" & RangetoHTML(Tabelle1.Range(Cells(2, 1), Cells(2, 4))) _
& RangetoHTML(Tabelle1.Range(Cells(zeile99, 1), Cells(zeile99, 4))) _
& "<br>" _
& "<br>" _
& RangetoHTML(Tabelle1.Range(Cells(2, 9), Cells(2, 13))) _
& RangetoHTML(Tabelle1.Range(Cells(zeile99, 9), Cells(zeile99, 13))) _
& "<br>" & "Vorgang in Zeile: " & zeile99 _
& "<br>" & "<br>" _
& "<a href=" & ThisWorkbook.Path & "\Antrag.xlsm>Link zur Übersicht</a>" _
& "<br>" & "<br>" & "Mit freundlichen Grüßen" & "<br>"
Application.ScreenUpdating = True
Mail.To = "
[email protected]"
'Mail.Attachments.Add Environ("TEMP") & "\" & "Antrag.xlsm"
Mail.Display
'If Mail.Sent = True Then
' Debug.Print "sent"
'ElseIf Mail.Sent = False Then
' Debug.Print "not sent"
'End If[/code]
1) Ein [b]neue[/b] Email wird geöffnet
2) Betreff wird aus Variable [b]thema [/b]ausgelesen
3) als EMail Body wird HTML gesetzt (nur so lassen sich die Daten aus Excel korrekt anzeigen)
4) aus Tabelle 1 werden versichiedene Bereiche kopiert, hier einfach anpassen...zeile99 ist bei mir eine interene Variable.
5) es wird ein Hyperlink auf eine Datei eingefügt.
6) Mail.to = Email-Empänger einfügen / mail.cc = "
[email protected];
[email protected]"... / mail.bc = ...
7) evtl ein Anhang, ist aber ausgeblendet
8) Mail.Display --> Email wird angezeigt --> Mail.sent würde sofort versenden ohne zu fragen
9) am Schluß gibt es noch eine Abfrage (auch ausgeblendet), ob die Mail wirklich versendet wurde, hier kann man z.B. eine Logdatei noch schreiben.
Evtl hilft es dir weiter.. ich würde es auch ohne AHK machen, ist evtl etwas einfacher und ohne Umwege.
Grüße