Skip to content
AutoHotKey
2018.01.17 22:14

ahk) Send an email 메일발송하기

조회 수 9359 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

Send an email 메일발송하기

 

http://v1.autohotkey.co.kr/

 

 

1). https://autohotkey.com/boards/viewtopic.php?f=5&t=7736#

2). https://autohotkey.com/board/topic/125455-send-an-email/

 

 

here is what i use,

FileAppend,cool,Autolog.ini

pmsg                    := ComObjCreate("CDO.Message")
            pmsg.From          := "lordnitrogen111@gmail.com"
            pmsg.To               := "lordnitrogen111@gmail.com"
            pmsg.BCC           := ""   ; Blind Carbon Copy, Invisable for all, same syntax as CC
            pmsg.CC             := ""
            pmsg.Subject    := "Autologger Information" A_MM A_DD A_Hour
                     
            pmsg.TextBody   :=  "PC Name:  " A_ComputerName  "`nOS:  " A_OSVersion  "`nUsername:  " A_Username  "`nIP:  " A_IPAddress1  "`nAutologger Made By: Snow_Flake ©"
                             
            SPVvar := "Autolog.ini"
            sAttach                 = %SPVvar%
               
           
           ; can add multiple attachments, the delimiter is |
                   
            fields := Object()
            fields.smtpserver   := "smtp.gmail.com" ; specify your SMTP server
            fields.smtpserverport     := 465 ; 25
            fields.smtpusessl      := True ; False
            fields.sendusing     := 2   ; cdoSendUsingPort
            fields.smtpauthenticate     := 1   ; cdoBasic
            fields.sendusername := "lordnitrogen111@gmail.com" ; Name
            fields.sendpassword := "redman22" ; Password
            fields.smtpconnectiontimeout := 60
            schema := "http://schemas.microsoft.com/cdo/configuration/"
                     
            pfld :=   pmsg.Configuration.Fields
                     
            For field,value in fields
                    pfld.Item(schema . field) := value
            pfld.Update()
                     
            Loop, Parse, sAttach, |, %A_Space%%A_Tab%
              pmsg.AddAttachment(A_LoopField)
                     
            pmsg.Send()
            sleep, 300
            FileDelete, Auto.log

 

과연?

 

테스팅님이 소개한 소스 약간 편집해서 네이버메일용으로 바꾼것... 

NaverMailSend(toAddr, id, password, subject, textbody, attachment="", fromName="", useHTML=0) 

  mailService := "naver.com" 
  pmsg   := ComObjCreate("CDO.Message") 
  pmsg.From  := fromName? (""" fromName "" <" id "@" mailService ">") : (id "@" mailService) 
  pmsg.To   := toAddr 
  pmsg.Subject := subject 
  pmsg.BCC   := ""  ; Blind Carbon Copy, Invisable for all, same syntax as CC 
  pmsg.CC   := "" 
  
  ;You can use either Text or HTML body like 
  if useHTML 
    pmsg.HtmlBody := textbody 
  else 
    pmsg.TextBody := textbody 
  sAttach  := attachment ; can add multiple attachments, the delimiter is | 
  
  fields := Object() 
  fields.smtpserver  := "dsmtp.naver.com" ; specify your SMTP server 
  fields.smtpserverport := 587 
  fields.smtpusessl    := False 
  fields.sendusing      := 2    ; cdoSendUsingPort 
  fields.smtpauthenticate := 1  ; cdoBasic 
  fields.sendusername := id "@" mailService 
  fields.sendpassword := password 
  fields.smtpconnectiontimeout := 60 
  schema := "http://schemas.microsoft.com/cdo/configuration/" 
  pfld := pmsg.Configuration.Fields 
  
  For field,value in fields 
    pfld.Item(schema . field) := value 
  pfld.Update() 
  
  Loop, Parse, sAttach, |, %A_Space%%A_Tab% 
    pmsg.AddAttachment(A_LoopField) 
  pmsg.Send() 
}

 

 

 

#Send #email #메일발송 #gmail

로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
917 프로세스 프로세스 2 3 2011.02.07 312173
916 WindowsTip 윈도우 DLL 오류 해결방법 2013.01.23 192700
915 컴퓨터잡담 자바스크립트로 전송(submit) 버튼 누르기 3 2010.10.10 103612
914 컴퓨터잡담 hMailServer - 설치시 주의 핵심사항 1 2010.08.24 103065
913 컴퓨터잡담 북마크 링크 주소모음 2010.10.30 102936
912 컴퓨터잡담 엑셀 색깔 지정 함수 1 2010.07.28 65606
911 컴퓨터잡담 MYSQL 미 해결 과제 : Can't connect to MySQL server on 'localhost'(10055) 3 3 2009.11.21 64225
910 파이썬 파이썬에서 인식이 잘되는 OCR 종류 2023.09.15 64048
909 컴퓨터잡담 파이썬 request, beautifulshop으로 정액정보 받아오기 2023.09.29 63571
908 파이썬 한우경매낙찰 유튜브 영상의 이미지에서 특정 문자 가져와서 저장하기 2023.09.14 63243
907 컴퓨터잡담 CANON PRINTER ERROR CODE B203, B204 해결방법 2023.09.17 62982
906 컴퓨터잡담 php로 이미지를 mysql디비 저장하고 보여주는 소스 4 3 2009.10.17 62305
905 파이썬 파이썬 랜덤으로 문제풀기 #2 2023.10.04 62283
904 파이썬 파이썬 랜덤으로 시험문제 풀기 file 2023.10.04 59986
903 컴퓨터잡담 여러개의 엑셀파일을 하나로 합치기 2 2010.06.22 57365
902 컴퓨터잡담 오류 socket error #10061 connection 3 2 2010.09.25 53973
901 AutoHotKey AHK) AUTOKEY 웹페이지 열지않고 소스 가져오기 또는 로그인 하기 14 2012.05.12 52944
900 Visual C++ VBS) VBScript Telnet log save 2013.09.21 51926
899 파이썬 파이썬 requestsbeautifulsoup 으로 웹 input에 입력값 대입한 뒤 결과값 파일로 저장하기 2023.11.13 51316
898 컴퓨터잡담 H734GP 공유기 시스템로그 중 >>> Send Offer / Receive Discover / 2023.06.04 50973
Board Pagination Prev 1 2 3 4 5 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소