1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen

[Calc] Per Makro Email versenden

Dieses Thema im Forum "Sonstige Sprachen" wurde erstellt von schmidtt1, 25. September 2014.

  1. schmidtt1

    schmidtt1 Mitglied

    Hallo, wie versende ich per Makro eine Mail?
     
  2. alxy

    alxy Erfahrenes Mitglied

    Wat fürn Makro? Meinst du VBA?
     
  3. schmidtt1

    schmidtt1 Mitglied

    Ich meine Makros für Open Office Calc.
     
  4. schmidtt1

    schmidtt1 Mitglied

    Nun ich habe jetzt ein Formular mit Open Office Base erstellt.
    In dem sind die Daten von meinen Kontakten enthalten.
    Nun möchte ich per Makro meinen offenen Browser aufrufen, wo ich bereits
    in gmail eingeloggt bin.
    Die Daten, wie Emailadresse, Betreff und einige weitere Textfelder sollten in die
    Email mit übernommen werden. Sodass ich die Email direkt abschicken kann und
    ggfs. auch ein paar kleine Änderungen vornehmen.
     
  5. ikosaeder

    ikosaeder Teekannen-Agnostiker

  6. schmidtt1

    schmidtt1 Mitglied

    Danke, ich habs schon mit einem Makro hinbekommen.
     
  7. ikosaeder

    ikosaeder Teekannen-Agnostiker

    Wärst du dann so nett und postest deine Lösung hier? Dann können andere mit der gleichen Frage davon profitieren.
     
  8. schmidtt1

    schmidtt1 Mitglied

    Natürlich, ich nutze Thunderbird als Mail-Client.

    Code (Text):
    1. Sub SendMail
    2.    Dim oDoc, oForm as Object
    3.    Dim betr,  sMail_Adr, sMail_Anr as String
    4.    oDoc = thisComponent
    5.    oForm = oDoc.drawpage.forms.getbyindex(0)
    6.    oSubForm = oForm.getByName("F_Kontakte").getByName("Kontakte")
    7.    sMail_Adr = oSubForm.getByName("txtEmail").Text
    8.    sMail_betr = oSubForm.getByName("Mails").getByName("txtBetreff").Text
    9.    sMail_Inh = oSubForm.getByName("Mails").getByName("txtInhalt").Text
    10.    sMail_Anr = oSubForm.getByName("txtAnrede").Text
    11.    sMail_nix = oSubForm.getByName("listAnrede")
    12.    attN = oSubForm.getByName("Mails").getByName("txtAnhang").Text
    13.    sMail_Vorn = oSubForm.getByName("txtVorname").Text
    14.    oCombobox = oSubForm.getbyname("combAnrede")
    15.    oCombobox.refresh
    16.    oListsource = "SELECT ""ID"" FROM ""Anrede"""
    17.    oCombobox.ListSource = oListsource
    18.    oCombobox.refresh
    19.    oComboWert=oCombobox.currentValue
    20.    
    21.    oCombobox2 = oSubForm.getbyname("combUmgang")
    22.    oCombobox2.refresh
    23.    oListsource2 = "SELECT ""ID"" FROM ""SiezenDuzen"""
    24.    oCombobox2.ListSource = oListsource2
    25.    oCombobox2.refresh
    26.    oComboWert2=oCombobox2.currentValue
    27.    
    28.    if oComboWert = "" then
    29.    sMail_Gen = ""
    30.    elseif oComboWert = "0" then
    31.    sMail_Gen = "Frau "
    32.    elseif oComboWert = "1" then
    33.    sMail_Gen = "Herr "
    34.    else
    35.    sMail_Gen = "Falsche Eingabe"
    36.    end if
    37.    
    38.    if oComboWert2 = "" then
    39.    sMail_Umg = ""
    40.    elseif oComboWert2 = "0" then
    41.    sMail_Umg = sMail_Vorn
    42.    elseif oComboWert2 = "1" then
    43.    sMail_Umg = (sMail_Gen + sMail_Anr)
    44.    else
    45.    sMail_Gen = "Falsche Eingabe"
    46.    end if
    47.    
    48.    if attN = "" then
    49.    attA = ""
    50.    else
    51.    attA = ConvertToURL (attN)
    52.    end if
    53.    
    54.    empf = (sMail_Adr)
    55.    betr = (sMail_betr) 'Betreffzeile
    56.    anrT = ("Hallo "+ sMail_Umg + "&#44;" + " " + "<br><br>" + sMail_Inh)
    57.    shell("C:\Program Files\Mozilla Thunderbird\thunderbird.exe",1,"-compose to=" + empf +",attachment=" + attA + ",subject=" + betr  + ",body=" + anrT)
    58. End Sub
     
    ComFreek und ikosaeder gefällt das.
Die Seite wird geladen...